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INTRODUCTION 


The VIC 20 is an exciting computer, designed to ensure you can easily make the best 
use of the computer's colour and sound potential. 


This book has been great fun to write, because the VIC ‘co-operates’ so well with the 
games programmer. The BASIC is fast and unambiguous, the range of noises and 
colour effects is practically infinite, and — despite the slight limitations of the large 
graphics — allows some splendid screen displays to be created, especially with the 
POKE command. 


Although | hope you'll enter these programs as we've listed them here, and enjoy 
playing them, the real value of a book like this lies in what you do with (a) the 
programs to adapt them to make them your own; and (b) the ideas you get from 
them to use in new programs of your own. 


I've tried to chose a wide range of programs, to show how flexible the VIC can be, 
and to give you some ideas of the kind of programs you can write, and the easiest 
way to achieve the effects you desire. 


The printer reproduces all the VIC graphics, and to make the listings as clear as 
possible, we've printed them just as they rolled off the printer. Despite this, some of 
the colour commands may be a little hard to fathom out. Here’s a list of the colour 
commands, along with REVERSE ON and REVERSE OFF, as reproduced by the 
printer. This should help in reading the listings. 


16 REM "gs" BLACK 68 REM "Gi" GREEH 
2 REM 6S REM 
eB REM "al" WHITE “FA REM "2" BLUE 
aa REM | fo REM 
S64 REM "NM" RED PA REM "Ti" YELLOW 
so REM : $5 REM 
45 REM "a" CYAH 94 REM "a" REVERSE OH 
~ REM 35 REM 
73 REM "3" PURPLE 166 REM "@" REVERSE OFF 


As well as using the commands as listed, several programs have REM statements 
explaining which colours have been used. If you can’t work out what a particular 
colour command is, use anything you like. And by all means, change the colours to 
suit yourself once you've seen what a particular program is meant to be doing. 


The book follows a straightforward plan. The program is introduced, and with some 
of the programs, information on how it was written — and how it achieves the effects 
it does — is included. 


Well, | guess you’re anxious to get down to the serious business of games-playing 
right now, so I'll end this introduction and let you get on with it. Just before | do, I'd 
like to thank the friendly team at Adda Home Computers Ltd., 154 Victoria Road, 
London, W3, who have helped me greatly. 


Good games-playing. 


TIM HARTNELL 
London, November, 1982 


ZOMBIE ISLAND 


Your plane has crashed on a remote island, where the only topological features are 
round green swamps, and the only inhabitants mindless zombies, shown on the 
display as letter Z’s. The zombies are out to get you, a black ‘clubs’ symbol. You can 
move anywhere on the island, except through a swamp. The zombies are pretty 
stupid. They can see you, but not the swamps, and — as is well known among 
zombiologists — zombies drown instantly in swamps. You survive only if you 
manage to lure the zombies into the swamps. 


You control your movements on the island with four key — “A” — up, “Z’’ — down, 


4i9 


, —left and “’.’’—right. Although you may find it a little strange using these keys at 
first, you'll soon find you are automatically pressing the right key for the direction in 
which you want to move. It will help you, in the early stages of using these keys, to 
note that the ‘greater than’ and ‘less than’ symbols point in the direction you will 
move if you press that key. These four keys are used in a number of programs in this 
book, and you may well want to use them in your own moving graphics games. 


The number of zombies on the island is determined randomly (line 2055) and 
neither they, nor you, can move outside the area bounded in purple on the screen. 
The number of drowned zombies is shown near the bottom of the screen, as is the 
number left alive. The zombies make quaint noises as they move about, and drown 
with a dramatic aural flourish. The zombies move in a reasonably intelligent way, 
but have some preprogrammed stupidity to give you achance to survive. The fewer 
zombies there are left, the faster they move, so the last one alive can give you a run 
for your money. Each round of the game ends with an echo of the noise your plane 
made when crashing. After a short pause, a new game will start automatically. 


19 FEM SOMBIE ISLAHD 

26 GOSUEZ6G8 

36 GETS#: IFS#=""THENS#=Tt 

40 AE=A: PE=B 

38 IFS¢="A" THEMAISA-22 : B=B-22 
68 IFS#="2"THEMA=A+22 : B=B+22 
76 IFS¢="."THEHMASA+1 : E=E+1 
SG IFS#="."THEMA=A~1 : B=B-1 
36 W=PEEK CAD 

166 IFM=127°THEMASAE : B=BRE 

116 IFW=26THEHA=AE : B=BE 

126 IFW=21 THEMA=AE : B=BE 

136 POKEAE. 1:POKERE, 1 

149 POKER. S3:FOKEE.@ 

156 T#=34 

166 REM COHTROL ZOMBIES 

1°78 FORR=1ToO"Y 

136 Use 


165 IFPEEK COCR) 9=S1 THEHZE8 

19@ IFRCR > >ATHEHUS=~-1: IFRHDC@o>,. STHEMUEH—-22 

268 IFQ¢Ro<ATHEHU=1: TFRHDC Goo, STHEMU=22 

216 POREGCR,46:°POKEPCR2?. 1 

228 OCR S=OCR I+ POR SSP eke ot+ 

225 IFPEEK COCR) )=S8THEN4GG 

236 IFPEEK COCR? 2=81 THEWTC=TC+1 : FOR L=1 7028: POKES6S7S, 255-38] (HEAT: POKES6S7S. 6: GOT 
nee 

235 IFFEEK COCR 3 3=12PTHEHR Roshi hol POR SP ero 
246 POKEQCR2. 26° POREPCR3.2 

264 IFTC=""THEH31& 

278 FPORESE6éS? 4, 258-RHUCB9#15 

298 HEXT 

295 PRIHT " STelesleletsleteteteleteleisieeteeT ALLY TC OUT OF 
366 GOTO36 

316 PRIHT" Sialeietecelstetetetetetetsteteteete ALLY "TOY OUT OFM 
S12 POKESéS7s.6 

S15 PRIHT" S@'OUeVve SURVIVED! 1" 

a26 GOTO48r 

408 POREGCR). 26° POREPCRS. 2 

402 POKESES? 4.8 

465 PRIMT" Seeielatetetaletelereleetetelete ALLY TO OUT OFM 
466 FRIHT' @8THAT“S THE EMD!" 

447 FORY'=1TO18a 

465 FPOKES6S7?. 1S8+-RHDC eo #1 aS 

426 HEAT 

438 POKESE8r?. & 

446 FOR'’=1TOS868 : HEXT 

458 RUM 

2666 REM INITIALISE 

2485 PRIMT'O" > Y=8 

2618 FORJ=17TO015 


2020 PORETSPS+), 127 PORESSS39+.7. 4 
200 POKETIST+I. 127: POKESaT T+]. 4 


2846 HEAT 

2058 FOR J=76S8TOrSSesTEPae: POKES. ‘POKES F 2E+J , 4 
2654 S=THTiRHDC Go #1194+5: 2151S RMD CBS#1 1943 

2855 IF J>7éS@AHDIAPSSSTHEHPOKES+2. 41: POKEI+S+307 28.3 
2656 T=8: LEI? PESGANTICTSESAMDRMTE 93 &THEMHT=1 

2657? IF T=1THEWYH74+1 (OCP oS IRL Pe yoaJ4+214567 28° POKES. 26° POKER CYS. 2 
2668 POREI+1(5, 127: PORESaPS5+7.4 

2678 HEMT 

SASH ASPPL6: B=se446:REM START POSITION PLAYER 

2898 POKER. SS: POKEE, & 

2186 T#="_" 

2128 PORES6S7S. 15 

2508 RETURH 


LODESTAR/3-D 
MAZE 


You are searching within a maze for the precious lodestar. At each point in the maze, 
you'll be told which directions from your current position are open. The display 
takes the form: 

MOVE NUMBER 1 

NORTH: OPEN 

SOUTH: WALL 

EAST: OPEN 

WEST: WALL 

LODESTAR INDICATOR READS 1200 

DIRECTION? 

North South East West Help 


You enter the initial letter of the move you wish to make. H (for help) gets you a view 
of the maze from above, with your position shown as a blue asterisk. But although 
you can see where you are within the maze, the lodestar is not marked. 


You will be pleased to see how quickly you start really visualizing the maze in three 
dimensions, and how you will be moving confidently through it. The maze changes 
from game to game, and the lodestar can be in one of three positions within it. Your 
score at the end depends on how few moves it took you to find the lodestar. Asking 
for help costs you a penalty of 15 moves! As you become familiar with the game, 
you'll learn how to make the best use of the feedback from the Lodestar Indicator. 


If you have extra memory, and you feel particularly ambitious, you could add a ‘3-D 
display’, to show the view ahead of you after each move. Lines 550 to 580 determine 
which of the three positions will be used for the lodestar in the game. 


16 REM LODESTAR’2-D MAZE 

20 GOSUBS38 

30 GOSUESTS 

46 M=M+1 

SH PRIMT""S TABCS 25 "MOVE HUMBER M 
v8 PRIWMT" Q@HORTH: "; 

S60 IFAU+1,.E9=S THEHPRIHT" SoPEMa" 
38 TFACD+1.E95% THEMPRIMT" WALL" 
166 PRIHT" #F@scuiTH: "; 

@ IF ACD-1,E9=S THEMNPRIHT" are" 
124 IF ACI-1,E3=% THEM PRIHT"WALL” 
136 FRIHT" Ma@EAST: "; 

1 IFAC. E+19=S THEN PRIMT" gore 
4 IF ACULE+195% THEM PRINT "WALL" 


166 PRINT" SHEST: "; 
178 IFAD E-19= THEM PRINT" aoPEHE" 

186 IF ACD. E-19=% THEN PRINT" HALL” 

196 PRINT" SLODESTAR INDICATOR" :PRINT TABCG)s "READS" 1004 CABSCZ-D)+ABSCY-E 3 34+4~E 
219 PRINT" ST RECT ICN om" 

211 PRIHT'SeH@RTH SSOLITH  sEBRIST AIBEST SHELF" 

Z15 GETAS: IFA¢=""THEH215 

228 IFAS="H"AMDACD+1,E9=THEM 215 
230 IFAS="S"ANDACD-1,E9=THEN 21! 
246 IFAS="E"ANDACD. E+1 =THEN215 

258 IFAS="W"ANDACD. E-19=4THEM215 

260 IF AS="H" THEN GOSUESTG 

27@ IFAS="H" THEN D= Det 

26 IF fAig="5" THEN D=rK- 

298 IF Ag="E" THEN ESEsI 

300 IF Af="H" THEN E=E-1 

316 IF 2=Il AMD Y=E THEM 240 

228 GOTO 46 

348 PRINT"YOU FOUWD IT IH" 

356 PRIMTTABCS 33" 9" M"@ MOVES! 11": FORJ=1T0109:HEXTJ:coToOS4a 
270 REM HELP 

490 PRIHT" MMDISaHORTHE" | PRIHT 

414 FORE=15701 STEP-1:FORC=1TO15 

420 FORCS1TOLS 

430 IFACH)C=% THEN PRINT "I" ; 

435 IFB@D AND C=E THEM PRINT "S#"s :ooTodde 

436 IF ACB, C)=S THEM PRINT" MH" 5 

44@ HEXT: PRINT: HEX 

472 PRINT" MMB BIEESOUTHE! : PRINT 

489 M=M+15 

499 FORJ=1 T2608: MEXTJ 

SQ PRINT" ACD. E3= 

328 RETURN 

53@ DIMAC15,159 

55 B=IMTCRMD( 1943544 

560 Z=14:¥=14 

570 IF B=2 THEM 'Y=2 

588 IFB=3 THEM Z=2 

59@ ¥=1 ‘Sez 

619 FORB=1T015:FORC=1TO15 


med 


ar un 


6230 ACK. Cs%:1F PHD 19>. STHEHACE, C3ss 

646 IF CC2ORC>140RE<20RE>14 THENACR. C= 
656 HMEXT > HEXT 

Arh D=2:E=2 

696 FORF=1T0Ss 

T6568 READE: READC 

P1G@ ACB. Cres 

rea HEXT 

P38 M=-15:FOKES6arS 

P48 RETURH 

73@ DATA 2,.2:253.2,4,.2,5)2,6,357 

rea DATAS: (5407.5, 7+5,6.5.5.5.4,5,9,613 

rrel DATARs 2.7 ode? SF Be Pe Ps PB PI D8 

PSA DATAS.3.16.6,18.7.18.6,18)5)16.4.5,8 
rok DATAIG. 3. 1153,12,3.19.314.3,.14,2,7, 10 
SHG DATA. 18, te 1A 4. 16.53.1802. 18, 2s 11,2.12 
Sia DATAZ. 13, 2:14,6511.6,12:6,12,651 sale 
S20 DATAL4. 12.8.12,8,14,9, 12.9:513.5,14,18,12 
B30 DATAL1,9.11+16:11:11511, 12.1245, 13,9,.13,16 
S40 DATALS: 11.13.12.15.15, 13, 14514,14 


ULETTE 


Roulette is one of the classic gambling games, and with this program you're ready 
to try out your ‘system’ for beating the wheel. .. without losing your shirt. 
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The first program allows full casino betting, playing by the European rules, which 
have a wheel with the numbers one to 36, plus zero. The American wheel has the 


numbers one to 36, plus zero and double zero. This is catered for by the second 
program. 


The roulette table has the numbers one to 36, some in black andsome in red onit, 
plus the zero (and, in the case of the American system, the double zero). You can 
place bets on a wide variety of number combinations. Once the bets are placed, a 
wheel is spun, and the croupier throws a ball into the wheel, in the opposite 
direction to the spin. The ball ends up resting on one of the numbers, and this 
determines your fate. 


When you run the program, you'll see the words YOU HAVE 100 CHIPS. After a short 
pause, the words MESSIEURS, FAITES VOS JEUX (Gentlemen, place your bets) 
appear. You then enter a letter of the alphabet from A to P (or Q to quit the game) 
which indicates which type of bet you wish to place. Here is the key to enter your 
bets: 

A-— A single number 

B— Two adjoining numbers 

C — Three numbers in adjoining columns 

D — Six numbers in adjoining columns 

E — Four numbers in a square 

F — Numbers one to 12 (known as the First Twelve) 

G — Numbers 13 to 24 (known as the Second Twelve) 

H — Numbers 25 to 36 (the Third Twelve) 

|!— Numbers one to 18 (Low) 

J— Numbers 19 to 36 (High) 

K — 12 numbers in a horizontal row 

L— Two adjacent horizontal columns 

M — Any red number (see below for a list of red and black numbers) 

N — Any black number 

O — Any even number 

P— Any odd number 

Q — to quit the game 


The red numbers are: 1, 3, 5, 7, 12, 14, 16, 18, 19, 21, 23, 25, 27, 30, 32, 34, 36 
The black numbers are: 2, 4, 6, 8, 10, 11, 13, 15, 17, 20, 22, 24, 26, 28, 29, 31, 33, 35 


You will not be allowed to bet more chips than you have, and you may withdraw 
from the wheel at any time. The bank only holds 1000 chips, so if you get a total of 
1100 in hand (the bank’s 1000, plus your original 100 chips), the game must end, 
when you'll be the one who broke the bank at Monte Carlo. 


Once you've spent a bit of time gambling with this program, you may wish to try 
some of the ‘systems’ which evolved for roulette. One of the most popular is the 
Martingale in which you stick to the same number or group of numbers, doubling 
the bet each time you lose, so you bet one chip the first spin, two the next (if you lost 
on the first), four the next, and so on. This ensures, in theory, that any win should 
wipe out all previous losses, and give you a profit as well. Most systems are 


systematic only in that they help you lose your money in record time. However, it is 
far better to try out a system with the program, than with an actual wheel. Sir Hiram 
Maxim, the inventor of the first automatic repeating gun (hardly an achievement 
likely to make him an expert on roulette wheels), is said to have said that ‘a bad 
system is better than none at all’. Balance this against the advice of William 
Makepeace Thackeray: “You have not played yet? Do not do so; above all, avoid a 
martingale if you do” 


1 REM ROULETTE - EUROFERH 

3 POKESES79. 26 

PRINT!" : GoTase 

FORK=1 TOSGG : EXT: PRINT: RETURH 

DIME 24) /CH=108 

PRIHT'YOU HAVE"CH"CHIFS" 

GOSUE1a 

PRINT"MESSIEURS, FAITES vos JEUS" 

GETAS: [FAR=""THEN?TG 

ASASCCAS 3-64: [FAC LORAS LP THEN? 

IFA=1? THEHAGaE 

FORG=1 TOs : BCG) =<99 MENT 
IMPLUIT' HOM MANY CHIPS" iH: [FHSCHTHEML 18 
CH=CH-H 
IFA=1 THEMGOUSUE2Sa6 
IFAS2THEHGOSLIEZE 46 
IFASSTHENGOSUBEES6 
IFF=4THEMGOSUBET ZR 
TFAeSTHENGOSUBZ? 6e 


| 


=} 


Dn whe op ee we 


Rim 


[FR PTHENGOSIRE: 
IFA=STHEMHGOSLIBS 
I FASS THEMGISLIBSS 
39 [FA=1LETHEMHGOSUBSSEE 

14@ IFA=1 1 THEMHGOSUBSa Ge 

i¢i IFA=1LETHEHGOSUBSe4e 

142 IFA=13THEHGOSUBSHS68 

143 IFA=14THEHGOSUBS 1] Se 

i44 IFA=LSTHEMGOSUES LES 

145 TFRHELeETHEMGOSUBSS a 

158 GOSUELE 

168 PRINT"WHEEL IS SPIMHIMG" : GOSUELE 


A) 7 oT og BS 


iN 


ae i te eed Gd 


Mu io he et 


t 
0 


117A GOSUEV ES PRI Td" 

188 FORBR=1TOPS CLINT CO RHOC a sears PRIM" Cea io PORT=1 TOS 
185 HEST: GOSUBSe@G8 : HEHT 

13 GOSUBLE:FRINHT"BALL HAS EMDED AT 

248 =O: E=1 

258 [FBCE2=C7THEH'rT=1 : rele 

268 [FELS47THEHE=E+1 : G0TOS5 

2°Q IFY=8THEHMSFEa 

238 WI=OD4H: CHSCH+hH J 

SILA PRLHAT "COMGREATULATIOMS. YOU HAWE WOMY YT CHIRS 

SSE GOSUELA 

SSH GOSUB4+Ae 

S68 GOTO4+E8 

27A PRIHT"S0 YOU LOSE": GoTOssAa 

466 IFCHA1LTHEMPRIHT' SOU HAVE FU OUT OF CHIPS" > EHD 
41@ IFCH?11IS8THEHFRIHT' YOU HAVE BROKEHM THE BAKE PEMD 


420 RETURH 

S600 TMPUT WHICH HUMBER! SD: Bod oeS) ODS85 : RETURY 

2646 INFUT'MMHICH THO HUMEBERS"; Belo, BéS3: ODS1 7 RETURH 
2688 PRIMT"SWHICH HUMBER": IMFUT" IM LEFT cCOLUMH': 1 


S690 FORE=87T02: BCE+19=D+E: HEAT: 0011: RETURM 

2P28 IMFUT"eF LEST NUMBER OF SIM "GT FORE*8TO05: BeE+1 2=D4+E WEST: O0S5: PETUPH 
2°68 IMPUT"1ST HUMBER IH SGUARE" 3 De PORE=8T3 > RC E+. 2=0+E: [FESSTHEND=D+1 
2°78 HEAT OD=8: RETURH 

2868 FORE=17T012: BCE SE: NEXT: OD=2: RETURH 

2546 FORES1T012: ECEs=E+12:°HEXT: O0e2: RETURH 

2888 FORE=17012: BCEs=E+24:HERT : O0S2: RETURH 

2928 FORES1TO19: Be )=E:HEXT : OD=1 > RETURH 

2968 FORE=17T08: BCE.=E+18:HEXT : O01: RETURH 

SHAE PRIMT' 8LOW HUMBER AT EMD": IMPUT"OF LIME": hi 

SH18 FORE=68T011: BCE+1 2s38E4+0° HEXT O02: RETURY 

3846 TMPUT" SLOW HO. IST COLUM" Ss Dd: THPUT aL po. BHD COLUM" s De: [TFABS“DA-De951T 
HEH S844 

SESE FORESQTO11: Bel+1 :=SeE+T : BOE +1 33 =S%E4+02 > MEXT ODS, 5: RETURE 

SESH RESTORE 

SH38 FORE=17TO1S: READESE? * HESXT:OD=1: RETURH 

S18 RESTORE ‘FORE=17T019: READ: HEXT / FORE=1TO1S: PEADEC Es -MERT Ode: GETURE 
S166 FORE=2TOSSSTERS: BCE“ 226: HEMT OD=1:° RETURH 

3268 FORE=1TOSSSTEPS: Be CE4+13 2926: HEMT: O0=1 > RETURH 


S214 DATA. 3.5. 7+9.12.14.16.19,19,21,23, 25.27, 35, 32,234, 368 
S220 DATA. 4.6.9.18.11.13.15.17. 20. 22.24,36, 28,29, 31, 93,95 


4606 PRINT MetetvoU ARE WITHDRAW IHG FROM THE GAME WITH "CH" CHIPS" 
4816 EXD 

S8AG POKES eS 

S018 POKESS6S7 7. 138+B: POKESASTS, 1364+ 
T8268 PORES68TS. 8: POKESSSP?, @: POKESSS7 
SEH RETURH 
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1 REM ROULETTE —- FIMERICAH 
3 POKES6S79S, 26 
So PRIHT'O": GoToeas 
16 FORK=1TOS88 > HERTS PR LHT > RETURH 
28 DIMBC24o:CH=1868 
46 FPRIHT'YOU HAVE"CH "CHIPS" 
58 GOSUBRLG 
66 FPRIHT"MESSIEURS,. FAITES OS JEW" 
GETA#: IFA#=""THEHTS 
AFASC CASS -64: [FASLORAS LP THEMF a 
IFA=17THEH4868 
FORM=17024: Be Qys—-99 : HEXT 
IHPUT" SHOW MAY CHIPS" Hs TFHOCHTHEML1e 
CH=CH-H 
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hc} 


IFA=2THEMGOSUESE44 
» IFA=STHEMGOSUBSESe 
IFA=4THEMGOSUBS7 26 
IFA=STHEMGOSUBS 76a 
IFAF=6THEHGOSUBSSHq 
136 IFA=?THEMGOSUBZS46 

37 IFA=8THEHGOSUBSSSa 
13S IFA=STHEHGOSUBS926 
139 IFA=18THEMGOSUBS966 
IFA=11 THEMGOSUBSB8a 
1i41 IFA=12THEHGOSUBse44 
142 IFA=1 2 7THEHGOSUBSase 
143 [FA=14THEHGOSUBS1 2a 
144 IFA=157THEHGOSUBS1éE8 
145 IFA=167THEMGOSUBS2a8 
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GOSUELE 
PRIHT'WHEEL IS SPIMHIHG" - GOSuBLa 

GOSUELE: PRINT!" 

FORES 1 TOPS: CIMT ORHDC A288 9-1: PR TMT! Conte OC ROR T= 1 TOs: 


“J 


EQ 
Vmuin win eo 


S2 TFC<2-1 THEMPRIMT " Tieteieil" c: 

S32 IFCS-1THEMPR IAT" CIsteeMaoiBLE ZERO" 
S4 FORT=1TOS#E 

S3 HEAT: GOSUBSIEGE : HEMT 

6 GOSWEIE: PR IMT" Me" 


TFG>-1THEHFPRIWHT" BALL HAS LAME AT" 
36 JFC=-1THEHFRIHT’ BALL HAS LAMDED OH TOWUEBLE 2ERO" 
248 ‘7sH: E=1 
258 SU CTHEHT=1 ' GOTOSPA 
268 IFE<S4THEME=E+1 : GOTOSSa 
27Q IFt’= =ATHEHSF EI 
2390 WIS OTH : CH=CH+HI 
216 PRIHT'COHGRATULATIOHS. SOU HAVE WOW MIU CHIPS" 
B38 GOSUELA 
356 GOSUEB4aE 
S68 GOTO46 
TS PRIWT" SO WOW LOSE": GoOTOSSé 
IFCH<1THEHMFRIHT' YOU HAVE FUR OLIT OF CHIPS" > EXD 
IFCH?LISEtTHEHPRIHT' SOU HAVE BROKEM THE BAHE "EMD 
424 RETLIFH 
S668 IMPUT' WHICH HUMBER ST Bol e=D: o0=35: RETURH 
— INPUT SHHICH THO HUNBERS"; Belo, Biss: O0S17: RETURH 
BSE PRIHT" AWHICH HUMBER" > THPLUT" TH LEFT folLunMh's 0 
2ES0 FORE=@TOs: BC E+1 3=D+E > HEAT OTe1) > RETURH 
27°2h IMFPUT"’SFIRST HUMBER OF SIR": 0: FORE=87T05: Bt e+los0+E > HEXT:> O0US5:RETURH 
27°68 IHPUT"’LST HUMBER IM SQUARE": 0: FORES8TOS > Bi e+] s=D4+E: [FES2THEWDH=D+1 
2°77 HEAT: O0=S: RETURH 
2EGHE FORE=17TO12: Btce ss: HExT: ON=2: RETURH 
SS46 FORE=1TO1S (Bi EssE+1 2: HEST  OTe2: RETURH 
Sesh FORE=1TOLS: Bibs =E+e4 > HEAT: O02: RETURH 
2928 FORE=17T018: BCs se: HEXT: On=1: RETURH 
S368 FORE=17T0S: BOES=E+12:HEXT: OD=1: RETURH 
S668 PRIHT' LOW HUMBER AT EMD": LHPUT' OF LIME": 
S618 FORESA@TO11 > Bi E+) 5=3#E+0 HEST O02: RETURH 
SH46 THPUT' SOM HO. LST COLUM" s D1: THPUT" Soe WO. SHO COLUMN"; DS: lFABS<D1-De2>1T 
HEH SE 4 Et 
SESE FORE=Q7TO11 > Bce+i s=S#E+D1 : BC E+1S3=3#E+02 > HET: OD=,. 5: RETURH 
SAG RESTORE 
SESE FORE=17015 : READBCE > *HEMT : OTt1° RETURH 
212A RESTORE: FORE=17TO1S: READS: HET: FORE=1TO1S: READBCE? (HEAT: O0=1:RETURH 
S168 FORE=2TOSES TERS: REE’ SSE HEXT O01 > RETURH 
S28E FORE=1TOSSSTEPS: BCcE+1329=E: HEXT: O0s1:° RETIRE 
3216 DATAL.3.5,.7.9,12,14516,19,19,21,23,25,27,36,32,34.3 
S228 DATHZ.4-6. 5,18. 11.135 15.17. 260,22, 24,26,28, 29.51.35 
46BG PRIM" eater coll ARE WITHIRAMLHG FROM THE GAME 
4618 EMD 
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SHLE PORES6877. 1S8+8: PORESé6S75. 138+8 
SHZ8 FORESEES? 8, HB: PORESES??. 6: POKESSS?S. 8 
2836 RETURH 


SPACETREK 


You are in command of a galactic probe ship, responsible for the safety of a ten by 
ten sector of space, containing the Antares, Procyon, Rigel, Vega, Canopus, Altair 
and Sagittarius sectors of the known galaxy (see lines 8540 —8610). This area of 
space contains a number of rather slow-witted aliens. They are immobile during a 
game, although their positions will, of course, be different from game to game. 


You have a limited amount of energy, and your task in the game is to roam the 
galaxy, making use of your long and short range scanners when you choose to do 
so, to locate and then destroy the aliens. A direct hit is not always successful, and 
you firing on the aliens often enrages them so that they fire back at you. If they hit 
you, the damage you sustain is measured in energy units, decreasing the energy 
you have left to use. Moving, firing and using the scanners all consume energy. 
Long-range scanners use up more energy than short-range ones. 


When you run the program, you'll see the sector space drawn out in the bottom left 
ofthe screen. At first it will be blank except for you—the red inverse dollar sign inthe 
middle. Under the sector are the words YOU ARE IN RIGEL SECTOR AT 5 5 — 
ENERGY 1234 and at the top of the screen are your three options 1—SCAN 2— MOVE 
3 — FIRE. You enter one of the three numbers. 


SCAN works in one of two ways. If you enter 1 to show you wish to scan, the words 
SCANNER: SHORT (1) OR LONG (2) RANGE will appear. Short range looks at the 
squares immediately surrounding the one you are in, and reports if there is any- 
thing there. It does not tell you in which direction. 


Long-range allows you to choose the direction, and gives a readout of two squares 
away in that direction. As | mentioned earlier, captain, long-range scanning uses up 
more energy than short-range scanning does. If you told the VIC you wished to scan 
north, it will reply SCANNER IS POSITIVE (which means an alien ship is to the north 
of you) or SCANNER IS NEGATIVE which means the square two to the north of you 
is empty. 


You have to try and kill as many aliens as you can before you run out of energy, but 
as each action uses up energy, you must judge your moves most carefully before 
making them. If you fire into an empty square, it will turn into an inverse blue X so 
you know not to shoot into that square again, although you may move through it if 
you like. A direct hit gets an inverse purple asterisk in the relevant square. 


You'll find that playing the game will teach you more about how to play it than these 
instructions will. When you enter FIRE or MORE as your choice, you'll be asked to 
indicate the direction you want. First the computer will ask N/S (for north or south) 


and if you wish to move in one of these directions, enter N or S. Just press RETURN 
if you do not want to move up or down. Then you'll be asked to choose from east or 
west. Again, just press RETURN if you do not want to move east or west. You can 
combine moves to move, for example, north east, or south west, if you like. 


The program is very tight on space, with just over 100 bytes left when the game is 
underway, so a number of error-trapping routines, which would have been useful, 
have been left out. Certainly you should add them if you have memory. Note that 
the short-range scanner cannot be used in the outer circuit (that is if either co- 
ordinate is 1 or 10). The long-range scanner cannot be used if either co-ordinate is 1, 
2,9 or 10. 


There is nothing in the program to stop you trying to move off the galactic grid, but 
trying to do so will cause the program to crash. Add your own choice of name for an 
alien in line 9240 if you don’t like mine. 


If you have extra memory, some sound would certainly enliven the action. As well, 
you could add a routine to move the aliens slowly about and one to put the name of 
a crew member before each report (reports being direction of move or fire, location, 
energy level, information on whether you've been hit or not, and so), with the actual 
crewmember making the report changing from time to time. 
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137 IFDSSTHEHMHGOSUBRSaRe 
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166 GOTO4e 

18H GOSUBSEee 
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PRIHT" SBSHORT CLS OR" PRIHT" SLOHG (29 RAHGE": [MPLITE 
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lid@ TFF=1THEMPRIHT" 44" G2" HEAR GoTOLe?7A 

1588 PRIHT"DIRECTION H-1, S-zZ, E-3. M4" [IHPUTH: 258 
1568 IFH=1AMDAMS B-2. i941 THEMZ=1 

1578 LFH=2AHDACB+2, 0o=1 THEHZ=1 

1358 IFH=3SAMDACB. C+22=1THEHS=1 
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léda PRIMT" SSCAHHWER IS "3 

1656 IF2£=1THEMPRIMT" POSITIVE" 
IFé=ATHEMPRIHT"HEGAT IVE" 
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S668 IMPUT'MDIRECTION ¢neS2" 5 AF 

2188 [FA="H"THEHE=B-1 

2128 IFA#="5"THEMB=B+1 

S146 PRIWHT"HOM ATE" "4c 

2158 [HPUT SRBC E bos BS 

2168 IFBF="E"THEHC=C+1 

2165 IFEB#="|"THEMC=C-1 

2178 PRIHT"HOW AT"B" 

2158 FORI=17TO1AGG@: HET 

2260 IFACE, 09=1THEMS5aa 

ACR Cps2: BCR. Cone 

GBOSUBEBEE 

RETURH 

G=E:Ag="" 

PRIHT'SOIRECTION OF FIRE": IHFUT"“HeSo"5 Ad: LFAS= "HM" THEMG=6— 1. 
IFA#=" 5S" THEHG=G+1 

Fat 

THPUT PBB BEA" AS 

IFA#="E"THEMF=F +1 

TFA#="b]" THEMF=F~1 

S188 E=E-188 

IFACG. Fact THEMS3as 

PRIHT'’ YOU HIT THE": PRIMT sa" 2+ 

ALSAL+1° BOG. Fo=4:G0TOR 3416 

BCG,Fas3 ee SED. Sik" 
FORG=1 TOL AGG: HES 

FRIHT" THE "24" cae? CPREMaUNETTNG BALE" 
seo FORG=1 TOL aaa: HEMT 

S348 IF PHD Go. &ETHEHS4a8 

soo FPRIMT" SSTHE' HIT US)!" EsE-1@eeeHoe a> : GOoTORdi a 
S488 PRIHT'THE "St" MISSED" 

S416 FORI=17TO1868 > HEXT : GOSUBSEae > RETURH 

S568 PRIHTSEMERGS BAKES EAHAUSTED" 

SE18 PRIHT'aYouU KILLED"AL"ALIEW" 3) [FALLS | THEMPRIAT OS 
PRINT" BON THIS MISSIOMMROUR COMMAMD RATIWG 1s "1E 
GOTOSESE 

PRINT" MyOlLlie SHIF HAS LAHDED OW Aa Se" SHIP 
ae SHIP HAS EXPLODED" 
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“SANTO SATHEMPRIWT "GYVEGA" | 

FSAI PETHEMPR LAT "Sl AHOP LIS 3 

SE SAMIGSSeTHEMPR IMT "BAL TALE" 5 

SSS THEMHFPRIHT SAGITTARIUS" 5 

PRINT SECTOR ATVB! Ur 

FRET LIFE 

QIMACLTA. ies. BLie, 1a 

FORA=17TO48: S=THTCRHDOCe e141 oY =THTCRMDICAS eT Rot AC foe] MET 
BSS CSS ACE. Cao: BCR, ZoS2 ALS6 
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46 E=1234 
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REACTION 


Your reactions come under scrutiny in this program which uses double-height 
characters. When you run the program, you'll see the words STAND BY appear. 
Then the screen will clear, and after a random time the words OK NOW PRESS THE 
SPACE BAR will appear. You must hit the space bar immediately. If you do so within 
the time limit, the words HEY YOU DID IT come up on the screen, and the process 
will start again. However, the time available to you to react in will decrease. 


The process will continue, with you being given a shorter and shorter time to react 
each time. Eventually you will fail, and a ‘reaction rating’ (LOUSY, FAIR, PRETTY 
GOOD, VERY GOOD, or YOU'RE THE CHAMP) will be given, depending on how 
short was the time of your last successful reaction. 


16 REM REACTION 

15 DIMRE¢ 45 

26 PRINT"<tI" 

38 GOSUBSEGE 

46 A¢=" See TAHDBY" 

28 ES=" OK MMO RESSOITHE MPA CEMBAR" 
66 Dt=" SBME We OL LMT" 
re G58 

286 PRINT" CR" At 

965 FORT#1 T0388: HEXT 

S98 FORT=17TO1GE+RHD* a> #4e8 


9392 IFRMDC@o>,. S9THENPRIHT "Oo" 
995 MHERT 

1866 GETF#: 1FFF<2"" THEM eae 
1818 PRINT" Hal" Be 

1426 E=TI 

1638 GETF#: [FF#=""THEH1a38 
1648 G=TI-E:PRIHT "chi" 


1656 [FG2i+1 THEMPRINTIS 

1666 ITFG>QTHEH1126 

16°68 FORT=17TO2888 : HExT 

1675 OS0-LHT CRMC a k5+2 2 

1886 GETFS: IFF&<>" "THEM asa 

1698 GOTO 

1128 PRIHT"Tm" 

1i25 IFGQ>48THEHPR IMT" Sem OUS" 

1138 TFG41AWDGS SAaTHEMPR IMT" senna" 

1146 [FOcS1TAHDQS26THEMPRIWT" See IP RET T PROD" 
1156 [FO<21AMDG> LeTHEMPRIMT BevER PY RIsOon" 
1166 TFG 1 THEMPR INT" sletrOUREMITHEMCHAMP " 
1186 FORT=17TO1068 : HEXT 

1198 PRIMT" Ch eleleqeteete ey" 

1268 PRINT "HEMMGAMEMCOM I HGR” 

1216 FORT=17TOS088: HEXT 

228 GOTOrE 

AG POKES6. 28: A=32776' FORB=P1s4 TOP sa@sTePs 
AS POKER, PEEK CA? : POKEE+1.PEEKCA2 

¢ ASAt+1  HERT 

8 POKES687S. 25: POKESeSeo, 255 
o POKES6867. 47 
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QUACK (DUCK 
SHOOT) 


In this rather daft game, you have to shoot the little purple ducks flying overhead. 
You shoot by pressing the space bar. You can move yourself right and left by 
pressing the “Z” and “M” keys respectively. Your score at the end of a limited time — 
which clocks down on the screen throughout the game — relates to the number of 
hits you had, compared with the number of shots you fired, so you cannot get a high 
score just by firing over and over again. 


The quacks do not fly in a totally predictable manner, which adds to the challenge. 
The sound and display when you score a ‘hit’ is quite satisfying. Note that there is a 


time penalty imposed every time you press the space bar, another good reason for 
firing with moderation. 


EM QUACK 

RIHT'S" > POKES6S?79. lee 

=f: H=18'SC=6:H1=6:FC=a 
ORF=1TOS6 

FP=41 THEMPRINMT "4 " 
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FOR Z=6TO28 
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RETURH 

REM SHOT 
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PRINT" STIME"S@-P" SHOTS"FC 
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1618 FPOKREY+H, 36 
1828 POREY+H+387r28. @ 

1658 POKEY+H+387 24. B 

LHe MEST 

1865 IFHS20RH=2+1THEMHI=1: PORE S6878., 15: POKES6E7S. 238+H > FORT=17T0S:HEXT > PORESES7S, 
si 

1@r78 RETWUEH 


BILLBOARD 


This tiny program produces very big results — twice as big, in fact. You enter the 
‘advertising message’ you want displayed in the strings A$, B$ and C$, using the 
‘shift right’ instead of aspace between the words. Only letters of the alphabet can be 
used with this program. Symbols, spaces and numbers are not allowed. 


You may well wish to modify the program so that instead of A$, B$ and C$ being 
permanently set, you can enter them each time you run it. Simply change line 70 
into INPUT A$, 80 into INPUT B$ and line 90 into INPUT C$. Note that if you do this, 
you can only enter single words, and you cannot use the controls to position your 
words. 


i@ REM BILLBORRD 
Fick" STM ESTTH I SHUT SwRITEST 
B=" MATH 1 SMISHOM SHAT MOB IFIP PES " 
C=" SIM GRAPH CWE MC" 

BOSUESaaE 

PRINT! At 
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PRINT! Ct 
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MAGIC SQUARE 


The clever computer generates a three by three magic square, replacing three or 
four of the numbers with zero. As you probably know, each line of numbers in a 
magic square (vertically, horizontally and diagonally) adds up to the same total. It is 
your task to work out what the missing numbers are. 


If there is already at least one complete row, itis fairly easy, with a bit of swift mental 
arithmetic, to determine (a) the total and (b) what digit will complete one of the 
other rows. This new digit should help you with another row and so on. If, however, 


there is not a single complete row, as sometimes happens, your task will be much 
harder. 


The computer counts the number of moves it takes you to complete the square, and 
then gives you a score at the end which is related to the number of wrong guesses 
you made on your way to solving the problem. 


m 


REM MAGIC SHUARE 
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278 IF2=30R2=6THEHPRIHT ‘ PRIHT 
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308) TFM=STHEHFREIHT " Sleiigteyoll HAVE SOLYED IT": FRIHT" Mol SCORED" IHT<¢ 1e8eea-s > 
SHS ITFM=STHEMFORT=1TO6e808 : HEXT : RUKH 


318 IMPUT YOUR GUESS" 5b 
ASE Me) 

B38 FORZ=1709 

S58 [FACZ3=WTHENBCZ 3 =H 
S66 IFEC29<6THEMM=M+ 1 
276 MEXT 

388 GOTOZSS 
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SIMON 


SIMON appears simple to play, but can be infuriatingly difficult. Your task is to copy 
the growing string of numbers the VIC creates. It will start with one number 
between one and four, printing on the screen in a distinctive colour, in a specific 
position, and sounding a corresponding note. You repeat the number, and it will 
re-appear, with the position, colour and sound as before. . . if you are correct. The 
first number will then be repeated, followed by a second number. You must repeat 
both of these, continuing as the sequence of notes and numbers builds up, until you 
either get a sequence of seven correct, or you make a mistake. 


You'll find that you'll improve dramatically with practice. Note that if the same 
number appears twice in row, you have to remove your finger from the key after 
pressing it the first time. The border changes throughout the game to keep you on 
your toes. 


5 REM SIMcir 

16 ASC oS el ee" 

2A ASC 29S 0a" 

SA AEC S 5S" SPW" 

46 ASC os tet ela 

ae FORT=1704: READS T > > HEAT 
68 PORKESESrS. 15: PRIMT" 7" 
TO FORC=17TOF 

SE LETECCI=LHTi RHIC as es ot) 
S89 HEAT 

95 LETH=1 

1AB FORGS1 70s: FOKESESrS, Sa+H 
114 GOSUB?Pee 

156 HESTO 

166 FORG=1ToOH 

178 GETE#: IFE#=""THEH1 7a 


194 LETF=VALCE#) 

198 [FP<>B¢ Go THEMSe @ i 

28h GOSUEFAG eT et ee 

268 MEXTO 

27 MEK+1 : IFADTTHENZS6 Oe EN adeWinde. 

275 FORT=1T0680:HEXT: GOTOL9a 
280 PRINT"WELL DOME. ‘YOU DID 1T" CHUBBYCHEEK’S |; 


S18 PRIHT' YOU SCORED" 4-1 


298 GOTOSIE GV® | 

SEQ FRIMT YC BLEW IT" | OLS | 

5 | J ng | 
i 


a2 EMD FOR THE 
FAG CESFIECE COS | Diversion of the Old and Young, Rich 
705 FORTAGTO1 : PRINTS" | and Poor, Wise and Otherwise. 
FIG FORR=1TOSe. Re Ga+T Ss vas 


720 PRIHT! OM" ; 
720 MEST 

740 PRIMTCS 
745 HESTT 


765 PRINT!" 
G RETURH 
a 


1 DATAISS,. 267.215.2258 
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MONTE CARLO 
MOLECULE 


The general term ‘Monte Carlo Simulations’ is given to those simulations which 
show the result of chance factors. Brownian motion and atomic diffusion are 
exampls of random mation which can be emulated with a Monte Carlo simulation. 
In Monte Carlo Molecule, a molecule, starting at any position on a ten by ten grid 
you designate (we suggest you try 5,5 as your first one), works it way randomly 
around a small box until it happens to find its way to the bottom right-hand corner 
(co-ordinates 10,10) counting the number of moves it took to get there. 


19 REM MONTECARLO MOLECULE 
22 PRINT"T)" : DIMAC1@,103:M=0 
25 GOSUB1S@0:REM START 

38 GOSUBSOO:REM FRIHT 

35 IFP=1QAHDGs16THEHS5 

49 GOSUR1@8@:REM FIND A DIRECTIOW 
60 GOTO38 

288 REM PRIHT 

285 ACP. W9=209: M=t+1 

218 PRIHWT" SeeeMove HO. "NM 
S15 PRIHT" se" 

728 FORK=1T019 

224 FORY=1TO1G 

J4Q PRIHTCHRECACK 33; 

258 HEAT? PRIHWT > EXT 

S68 RETURH 

1066 REM DIRECTIGH 

1G1a@ ACP. @>s214 

1815 G=@ 

1@26 T=IMTCRHDC alee 

1f36@ IFT=G@THEHGOSUB 142 


1835 IFT=4THEHGOSUB112¢a 
1840 IFT=1THEHGOSURI zag 
1A45 LFT=STHEMGOSUBIL 13a 
1856 IFT=2THEMGOSUBI11a 
1455 IFT=6THEHGOSUBLI ide 
1H6@ LFT=3THEMGOSUBIZIa 
1W65 ITFT=?THEMGOSUBL1Sa 
1876 [FGS@THEH1ieze 

18286 RETURH 

1186 IFP>1THEHP=F-1:G=1 
1185 RETURH 

1118 ITFP<L8THEMPSP +1: G=41 
1115 RETURH 

1120 IFPS1AWDG> 1 THEMPSF 1: G=tl-1 Ged 


1125 RETURH 
1138 IFPS1BAHDGS1@THEMPSF +1: G=041:G=4 
1135 RETURH 
L1i4@ [FPS GAHDO> 1 THEHFSF +1‘ teo-1:G=1 
1145 RETURH 


26) 


1154 RETURH 

1268 IFG>1THEHMG=sa-1 > G=1 

1285 RETURH 

1218 IFRCia@THEHM@=t+1 :G=1 

1215 RETURH 

{fee REM START 

{5i@ FOR#=1TO14a 

1528 FORY=1TO14 

1538 ACH. 'Yo=e14 

1548 HEXT HEAT 

1550 PRIM" CIeeleico-ORDIMATES OF" 
156@ IHFUT"START POSITIOH"; PF. t 
1576 IFP<10RFS1@0RG<10R0>1@THEN1 5a 
1S8@ ACP. s=209 

159@ PRIHT"T" 

1686 RETURH 


BIORHYTHMS 


This program is based on the three cycles which affect us throughout our lives —the 
physical, emotional and mental cycles. The 23-day physical cycle relates to such 
things as strength, aggressiveness and endurance. The emotions are said to be 
affected by a 28-day cycle, which relates to optimism/pessimism, frustration, 
temper and moodiness. The mental cycle is 33 days long, and this relates to logic, 
common sense, reasoning and ease of expression. 


When you run the:program, you'll be asked to enter your date of birth (following the 
clear prompts), and the day for which you want a biorhythm calculated. The 
computer will give you three forecasts—the day before the one you've specified, the 
day you want and the one which follows it. 


You are then given the option for a new forecast (based on the same date of birth) or 
of stopping the program. A zero rating is a neutral day, positive figures are a good 
sign, while negative ones are warnings of a bad day in the area governed by that 
particular cycle. If all three are negative, you'd better stay in bed for the day. 


16 REM BIORH'Y'THMS 

15 REM ALASTAIR GOURLAY “TIM HARTHELL 

26 PRINT" TIMMRISEMTER OUR DATE OF BIRTH" 
38 IMPUT" SWEAR CAS 19645" 5A 

496 IHMPUT"SMOHTH CAS P2a"GB 

24 IMPUT" SDA CAS 21a"Gc 

6H A=ARSES. 2ot+bese. 4+C 

fA PRIHT" CSIR Ol THE DATE FOR ‘YOUR BIORHYTHM" 
88 IHPUT" SWEAR CAS 19849"58 

S68 IMPUT"SMOHTH CAS Farsc 

166 IMPUT" SAY “AS 219"c0 

116 B=EBese65. 25+C#S6,4+0-A 

1i2@ FRIHT'O" 

115 FORF=-1TO1 

116 IFF=-17THEMHPRIHT"@SPREYIOUS DA: "> B=B--1 
IFF=8THEHPRIHT"@ SA? OF FORECAST: ": B=B+1 
118 ITFF=1THEMPRIHT"@SHEXT DAY: "> BSB+1 


120 C=23 


em 
rs 
—~t 


136 PRINT" SPHYSICAL: "; 

146 GOSUB]56 

156 C28 

166 PRIHT"4EMOTIOMAL: "; 

17@ GOSUBSSa 

1s@ C=32 

136 PRIHT"RILTHTELLECTUAL: "3 

268 GOSUB25H 

285 HEXTF 

216 PRIHT" MSE HTER “r’ FOR A HEL FORECAST. “H* Ta STOR" 
226 GET WS: IFWS=""THEMZ26 

238 [FUS= "THEM? 

246 EHD 

258 PRIMTIHT(1G0#S1HCCB-IHTC BCCI Cea Po 
264 RETURH 


CANNIBAL 
CHARLIE 


You get to play God in CANNIBAL CHARLIE. You specify how many cannibals there 
will be at the start of creation, and how many explorers. Your aim is to create a 
society that survives as long as possible. Too few explorers, and the society will die 
within a month or so. Too many explorers, and they'll overwhelm the cannibals, 
again bringing things to a halt within the first month. The program gives you a 
population readout at the end of each month. There is a ‘highest score’ (i.e. longest 
survival of a particular society) feature, so you can try to out-God yourself. If you 
don't like the scenario, you can change it to foxes and rabbits, or any predator/prey 
combination you prefer. 


The variable FD (food, set inline 100) determines how many cannibals can feast ona 
single explorer. Although this does not change within a single series of games, it 
will be different each time you run the program from the beginning. 


19 REM CAHWIBAL CHARLIE 

26 PRINT" TISELCOME TO CANNIBAL WE REBIHARLIE" 

30 PRINT" SIM THIS GAME 'YOL! ARE 35008. AND IT IS YOUR JOB TO SET UP THE" 
46 PRIHT"RULES FOR CAHHIBALS AND EXPLORERS IN SUCH A WAY’ THAT THE SOCIETY"; 
36 PRIHT"LASTS FOR THE LOWHGEST POSSIBLE TIME. MMEPRESS ANY KEY WHEN" 
68 PRINT" YOU’RE READY TO PLAY" 

76 GETA#: IFAS=""THEH7G 

S@ HI=4 

166 FD=RMD“ a> 

118 FRIWT"CIMMGFIHE., GOD, HOW HO MAH’? CAMHIBALS WILL WE" ; 

126 PRIHT"START WITH (<1@@2?" 

125 IMPUTCP: IFCP>S9THEH125 

1f°@ PRINT" CHSCAHHIBALS: " 

184 PRIHT" SPOPULATIOW: "CF 

198 CP=CF-S 

21@ PRIHT" SHOW, THEM EXPLORERS: ee” 

226 IHPUT"POPULATION ¢<1{a@3"; ER 

225 IFEFSS3THEHZ28 

238 EF=EP/3 


G8) 


Sm Im 


+ 


pen 


ra 
~~ 


OW ou 


Jd hd oo to hd co by od Pe fo a a 
rE DHASRQAAOOIssagsg 


AFA 
1@ag 
1@if 


PRINT" Seer LEASE STAHD By" 
GOSUBLABE: PRINT" 
DAS4‘CS=Ce“S: ES=ES’S 

DA=DA+4 

PRIOIMT CIMMOHTH' DA: LFOR=1 THEM 3Ge 
IFCP>EF."FOTHEMCFH=EF FD 

CPSCh+ oo SeCPE-CE#eER So RED 
EP=EF+¢ (4#EF-EPeCP Oe. AL 

PRIHT Mea" THT OCR?  CAHMIBALS" 
PRIHT" Sete THT OEP S "EXPLORERS" 
IFEFCORCE<2THEH398 

GOSUB1IEeA 

GoToOsS 

IFUIASHS THEM HS=DA 
IFCPSLOREPCITHEMFPRIWT "TI" 

FRIWT' RSEMD OF THE LIME. Gor" 
PRIHT"AATHE SOCIETY SURVIVED FOR" DA" MOMTHS" 
PRIHT GREST SO FAR LS"HS 


PRIMT A IHRUT “4° FOR A HEL CREATICW. AH? OTHER KEY TO STarP" 
4 GETA#: [FAf=""THEH44e 


IFAf="""" THEHL1& 


A PRINT" SBE Bre. ‘OUR ALM IGHT THESS" 


EWU 
FORY=1 T0488 > HEAT 
RETUPFH 
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OTHELLO/ 
REVERSI 


Othello is based on the game Reversi which was invented in 1888. Reversi was 
played on a standard draughts board, using double-sided pieces — red on one side, 
black on the other. In his splendid book “Discovering Old Board Games” (Shire 
Publications Ltd., Aylesbury, 1980), R.C. Bell explains that black begins the game by 
placing a piece, black side up on one of the four central squares on the empty board. 
Red replies by placing her first piece, red side up on another central square. ‘“These 
four squares are covered in the first four turns of play, and then the players continue 
alternately, placing their pieces on a square adjacent to one occupied by an enemy 
piece,” Mr Bell writes. 


Any enemy pieces in a straight line between the latest piece placed and another one 
of the player’s pieces, is then turned over to show the player’s colour. The winner is 
the player with the most pieces when the board is completely covered, or when 
neither player can move. 


You'll find the VIC plays slowly, but remarkably well, in this version of the game. 
You get the choice of going first or second. You move by entering the number of the 
square down the side, then the number across, entering both as one double-digit 
number (such as 36). 

Othello is a registered name, copyright Mine of Information, 


ie Ss > \ 
Cee GY 


IC 
\C al 
E>)? » . 


ra \\| 


1 REM OTHELLO CHARLTOHHARTHELL 
= Rel HOTE LETTER 0. HOT ZERO 

3 FEM CLS 15 CLEAR SCREEH 

4 PRIAT'" REM CLS 

5 S=ASCE CS") O=ASCC"D" 3 

5 PORE S679. 24°REM BLACK BORDER 
18 LIMACIB, ia 

26 FORB=1TO16 

36 FORC1TO18 


44 IF E<>1 AND Ci>i AWD Et? ig AWD Ce>ial THEM ACE .Ca= ABCC", "2 
SH AENTC 

ink] 

Ta ACS. 5d-¢ 

aH ACG. Gane 

ah ACE, DOD 

{WA ACS. Bas 

iiti F-a 

{28 PRIWT" 0G You WANT To GO": Reh CLS, REL 
138 PRIHT FIRST “i-YES, 2-HO3" 

146 IMPUT 


156 PRIHT"T": REM CLS. ELUE 
ine GOSUE SHGki 

17a IF We=il THEN 2808 

iG6GG PRINT" fi MOVE 

18le S-o 

LHsu T-% 

late H=8 

{846 FORASS To 3 

1856 FORE=2 70 4 

IF ACA: Bati46é THEM isee 
-# 

ruRC--1 TO i 

FORD=-i To i 

K78 

1114 F=A 

1126 G-E 

1136 [TFARCF+H, 64039755 THEH 1238 
tide K-K+1 

1158 FrF+C 

1168 6-6G+D 

ii7a GOTOL11i3A 

1iS6 IFACF+C,. G4+05<27T THEN {eae 
1198 G-D+K 

12a HEMTO 

iZifi HEXTC 


= 
Mmm me 


37 i= 


a ee ed 
_ 


Mm Wry sat 
ae a a | 


me IT) 


IFH=4 AND R=— THEM Seige 
IFH=0 THEH 1274 

GOSUE 48aa 

GOSUP 2866 

IHPUT" YOUR GO">R 


Dou 
OF 


1226 IFA-2 OR A=9 THEM G=he2 

1230 IFP=2 OF E=9 THEH Q=Qk2 

{24h IFA-= OR A=8 THEH O=f-2 

{258 IFB-2 OP B=S THEH Q=n-2 

1268 [FCAs2 OF A=99 AND (B=2 OF B=83 THEM Qs ate ‘2 
1278 IFCAS3 OPA=82AND(B=2 OR B=9> THEN Q=G/ 

1288 IF OCH OF 2-0 OP CPHIC i378. AWD G=H3 THEH 1228 
1298 H=t 

i2HA fit=A 

{318 H=R 

1228 HEXTR 

1324 HEXTA 

1244 

1258 

1268 

i378 

2AAB 

2018 


2626 T=0:REM LETTER O 

2035 REM @ TO PASS 

2646 IF R=@ THEN 2090 

2650 IF R<11 OP P>@S THEN 2008 

2060 M=INTCR/165+1 

2Q7H N=R-LORINTOR“189+1 

2680 GOSUB 4Aaa 

2096 GOSUB 2088 

2188 GOTO 1480 

2666 PRINT "Si": REM HOME 

261G C=6 

2026 H=@ 

203@ PRINT:PRINT"s @ITHELLOM" : PRINT 
2032 REM BLACK, RVSON, R'’SOFF 

2635 PRINT" 123456790": REM PED. PYSON. PYSOFF. BLUE 
Sh46 FORB=2 TO 9 

3050 PRIHTE-1: 

266i FORD=2T09 

26768 PRINT CHRE“ACB. D3); 

SOSA IF ACE. D3=% THEN C-C+i 

2698 IF ACE. D2-0 THEN H=H+i 

318 HEXTD 

2116 PRIHTE-1 

3128 NEXTB 

S136 PRINT"@ a12345672M9i" REM RED, RYSOH, RYSOFF.GREEH 
3148 PRINT 

2156 PRINT" 1 HAVES" SC 

2152 PRIHT 

S155 PRINT" WOU HAVES" A: 7 
3157 PRINT 

3170 RETUPRH 

4AG@ FORC=~i TO 1 

4018 FORD--1 TO 1 


4820 F=M 
4820 G-N 
4046 IFACF+C.G+D3¢°S THEN 46¢a 


4050 F=F+e 
445ia G=G+D 

4076 GOTOde46 

488@ IFACF+C.G+03¢27 THEN 4i4a 
4696 ACF.GI=T 

4160 IF M=F AND H=G THEH 4idq 
4118 F=F-C 

4i2h6 G=G-D 

4130 GOoTO4a9Aa 

$148 HESTE 

415@ HEMTC 

$1658 RETURH 

5066 IFC>H THEN PRINT"I WOW" C3H 
5@18 IFH<C THEH PRINT"YOU WON":C:H 
3826 IFH=C THEH PPINT"IT’S A DRAW!" 
5434 END 
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DR WATSON 
AND 
DR AUDIO 


This is a pair of simple programs, in which the VIC thinks of a number between one 
and a hundred and challenges you to guess it. In ‘Dr Watson’ the feedback is words, 
and it is pretty easy to guess the number. ‘Dr Audio’, by contrast, uses a tone to let 
you know how close you are to the correct number. Once you've played about five 
games, you'll probably be quite pleased to see how good you become at 
interpreting the sounds. 


DR WATSON 


6 
19 PRIHT"I AM THINKING OF A HUMBER BETWEEN ONE AWD 168" 
36 A=THTORND! 12 #188941 

48 PRINT"WHAT IS IT"; 

45 INPUT B 

38 C=C+1 

29 REM "WROWG" IH RED 

60 IFB<SA THEN PRINT"NO, "5B; "GIS WROHGE" 

63 IFESA THEM 126 

of PRIHT"GUESS"5C; "IS "; 

76 IFBOAR THEN PRINT"HTOO LOWS": REM GREEN: BLUE 
8 IFB>A THEN PRINT"4T00 HIGHS": REM PURPLE: BLUE 
90 IF Cita THEN 45 

168 PRIHT:PRINT"@SEND OF THE GAMES" 

118 PRINT"'I WAS THINKING OF";A:GOTOI?G 

i2@ PRIHT"YES, ‘YOU ARE RIGHT!” 

138 PRINT 

149 PRINT"SI MAS GTHINKING" ."OF";A 

158 PRINT 

166 PRINT"IT TOOK ‘YOU";C, "GUESSES" 

176 FORJ=1TO2060: NEXTJ 

18@ RU 


DR AUDIO| 


5 REM DR AUDIO 

6 C=1 

7 POKE36878,7 

1@ PRINT"I AM THINKING OF A NUMBER BETWEEN ONE AND 180" 
36 A=INTCRND(1)#100)+1 

48 PRIHT"WHAT IS IT"; 

45 INPUT B 

5@ C=C+1 


So REM "WRONG" IN RED 

68 IFBC>A THEN PRINT"NO.‘";B;"SISM WRONGS" 
65 IFB=A THEN 126 

Gr PRINT"GUESS";C; "IS "; 

78 POKE 36875, ABSCA-B)+128 

86 FORT=1T07@@:NEXTT 

85 POKE 36875.6 

96 IF C<3@ THEN 45 

166 PRINT:PRINT"@SEND OF THE GAMES" 

118 PRINT""I WAS THINKING OF";A:GOTO17a 
126 PRINT"YES, YOU ARE RIGHT!" 

138 PRINT 

146 PRINT" GI [IAS STHINKING" ."OF";A 
156 PRINT 

168 PRINT"IT TOOK YOU";C, "GUESSES" 

17@ FORJ=1T02000: HEXTJ 

126 RUM 


ZODIAC 
FORTUNE TELLER 


ZODIAC FORTUNE TELLER, written by A.G.T. Stevens, uses a question and answer 
method to get the VIC to earn its keep providing sideshow entertainment. The 
results should not be taken too seriously. 


5 PRINT" +? 

19 GOSUB 84@ 

29 PRINT 

38 PRINT"SWILL ‘YOU PLEASE ” 
44 PRINT" TELL ME ‘YOUR NAME" 
38 IHPUT At 


6Q PRIHT"2)" 

65 GOSUR 84a 

67 PRINT 

7@ PRINT"STHANK YOU "j AS 

8@ PRINT 

9@ PRINT"MWILL YOU NOW PLEASE" 

198 PRINT" TELL ME YOUR BIRTHDAY" 

118 PRINT aA Sy) 
129 PRINT"MGIVE ME 4 NUMBERS" He 
138 PRINT * TUS 
144 PRINT"SMONTH FIRST" ‘so! 
15@ PRINT" B1¢JAN-12¢DEC)" 

16@ PRINT 

174 PRINT" FOLLOWED BY DAY" 

158 PRINT" @1 - 31 

194 INPUT B 

208 PRINT"<1" 

219 GOSUB 949 

220 PRINT 

225 PRINT"S YOU WERE BORN UNDER" 

23 PRINT” THE SIGH OF -" 

240 PRINT 

258 IF B>=9101 AND BX=9126 OR B>=1223 AND B¢=1231 THEN PRINT" CAPRICORN" 
260 IF BY=@121 AND Bi=9219 THEN PRINT" RQUARIUS" 

270 IF B)=922@ AND B<=@321 THEN PRINT" PISCES" 

289 IF B>=9332 AND B= 420 THEN PRINT” ARIES" 

298 IF B7=8421 AND Bi=8521 THEN PRINT" TAURUS" 

389 IF B2=@522 AND BC= @621 THEN PRINT" GEMINI" 

319 IF 3>=@622 AND B¢=8723 THEN PRINT" CANCER" 
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ae 
to es i | 
mm 


IHMAHAHDAOMHAongnennann 
HAUHM KK DO AIHMA BWW Oo 
BOO gO IH VMVVIIDYNODNO 


IF B>=0724 AND B<=8823 THEN PRINT" LEO" 
IF B>=@824 AND B¢=9923 THEN PRINT" ¥IRGO" 
IF B>=8924 AND B¢=1923 THEN PRINT” LIBRA" 
IF B>=1024 AND Bé=1122 THEN PRINT" SCORPIO” 
IF B>=1123 AND BC=1222 THEN PRINT" SAGITTARIUS" 


PRINT 

PRINT"SHALL I TELL” 
PRINT"YOUR FORTUNE 
PRINT 
PRINT" 
IHPUT CF 
iF C$="""THEN PRINT"S)" 
IF C$="Y"THEN GOSUB 348 
IF C$="N" THEN GOTO S23 
PRIHT 
J=IHTS 1 G#RNDC 12 3 +1 


"CRS; net 


PRESS Y OR N" 


iF J=1 THEN PRINT"@ITCHY PALM?A CASH 

IF J=2 THEN PRINT" GREWARE!A FINANCIAL 

IF J=3 THEN FRINT"SAN ACQUAINTANCE MAKES 

IF J=4 THEN PRINT"GINVEST SPARE MONEY 

iF J=5 THEN PRINT"GAYOID INDECISION STICK 

IF J=6 THEN PRINT"GYOU ARE ENTERING 

IF J=7 THEN PRINT"SIMPORTANT TO KEEP ON 

IF J=& THEN PRINT"GAMBITIOUS PLANS COULD 

IF J=9 THEN PRINT"SIF ‘OU HAYE FREVIOUSLY 

IF J=319 THEM PRINT"GHEW INTERESTS COULD 

FOR T=1 TO 15@:NEXT T 

PRINT 

K=INT¢ 1O#RHDC199+1 

IF K=1 THEM PRINT"§iCERTAIN PEOPLE MAY BE 

IF K=2 THEN PRINT"SAYOID EMOTIONAL 

IF K=3 THEN PRINT"§IAN INTERVIEW OR MEET- 

IF K=4 THEN PRINT"SISOCIAL LIFE COULD 

IF K=5 THEN PRINT"§IA BUSY MONTH AHEAD 15 

IF K=6 THEN PRINT"#iNOT AN ENERGETIC MONTH 
K=? THEN PRINT"HMAKE SURE 'vOL) ARE HOT 

IF K=8 THEN PRINT" §WOU MA’ NEED HELP FROM 

IF K=9THEN PRINT"SFALL IN WITH OTHERS 


IF K=1@ THEN PRINT"§ISOME KIND OF FAMIL'Y 
FOR S=1 TO 15@:NEAT S 

PRINT 

L=IHT¢ 16#RND¢ 19 >+1 

THEH PRINT"SPRESS ON WITH OUTDOOR 
THEM PRINT'!SPLANETAR'Y INFLUEHCES 
THEN PRINT"ISAN OPPORTUNITY WILL 


PRINT"MTHIS MONTH IS FAVOUR- 
PRINT"TESTING TIME AHEAD 
PRINT" MBE FASHICHABLE BUY 
PRINT'STRY TO CUT DOWN ON 


4 THEM 
3 THEH 
& THEM 
7 THEH 
THEM PRINT"SSUIPERIORS COULD BE 

IF L=9 THEN PRINT"'A FRIEND MAY HAYE 

L=19 THEN PRINT"0FFERS OF HELP MAY BE 
END 

PRINT" SI" 

PRINT "GALL RIGHT THEN 
EMD 


"SAS" BYE 


DEAL COULD LOSE 


PROBLEMS TR? TO BE 


WINDFALL COULD BE DUE" 

YOU MONEY" 
ATTRACTIVE PROPOSAL BE CAREFUL! 
WISELY" 

TO EXISTING PLANS” 

A SUCCESSFUL PHASE" 
GQOD TERMS WITH 

BE IN YOUR FAYOUR" 
FAILED-TRY AGAIN" 
BRING FRESH BENEFITS" 


EVERYBODY" 


ANYTHING BUT HELPFUL" 
ENTANGLEMENTS" 

-ING COULD BRING MORE 
PROVIDE MORE YARIET''" 
INDICATED" 

AHEAD BUT TRY TO VARY 


SECURITY" 


YOUR ACTIVI 
CAUGHT OFF GUARD LATER NEXT M 


CLOSE CONTACTS" 


ARRANGEMENTS" 


REUNION COULD TRKE PLACE" 


ACTIVITIES" 


FAVOUR TRAVEL" 
ARISE GIVE IT CAREFUL CONSIDERATI 


“ABLE FOR AGREEMENTS" 
BE PREPARED!" 
A NEW OUTFIT" 
INESSENTIALS STHER- -WISE PROBL 


DIFFICULT BE FIRM BUT COURTEO 


HELPFUL" 


REFIISED-PERSIST ‘7OL) ARE HEEDED" 


RYE u 
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Ba 
po) 


PRINT TAB(ai; ‘a= 

PRINT TAR(305"9 mMMINCHRSO scsomniTsag |" 
PRINT TABC3);"I \" 

PRINT TABC3); "1 aFMOTRWTS@MmE STTERLSLAER |" 
PRINT TABC3);"L___ 

POKE 36879, 15 

FOR L={ TO 198 

INTCRHDC 13412034128 
12 


WOOD 0 NOON 
—_ ™ cS 


SHA BWM DOD HW NM NF 


VOOM VMWOIA DM DDD 
? A 
ant) 
2] 
= 
os 


TRANQUILLITY 
BASE 


Here is a short moon-landing simulation which, despite its simplicity, is good fun to 
play and will certainly give you a challenging task. 


You start off around 500 feet above the luna surface, with a limited quantity of fuel. 
You control the descent of your craft by entering your choice of thrust by pressing 
the number keys. You have fairly tight limits within which to land safely. 


Running out of fuel before you reach the ground, or hitting the ground at an 
unacceptable speed will cause you to crash. A minus velocity means you are falling 
towards the luna surface. You may well start off climbing away from the moon, but 
its gravity will soon draw you down. 


Once you've mastered the program in its present form, you may wish to add a 
display, or modify the program in some other way. Giving yourself less starting fuel 
is a good way to make the program more difficult. F% is your fuel, V% your velocity, 
and H% your height. 


18 REM TRAHGULLLITY BASE 148 WASVM+CM 

SE Feel Se+eHoe 1 ose 145 TFFR<LAWDHY< Le THEM LE 

BE Vi -B+RH De 1 koe 158 IF Hk>18THEN 66 

48 HN=SBH-RHDC1o#16 166 TFWAS-SAHDVYE<STHEH 218 

BB PRINT" 178 PRIWT" 8c RASHe ms 

TS PRIMT "Aenea EL: ee 1S@ FORT=1 T0306: EXT 

SH PRIMT" SWB BRERVELOCI Ty: vise 198 GOTOITE 

36 PRIMT" Senn RRBESHE IGHT: "HY 216 PRIHT'SS5REAT @LAHDIWG, SCHIEF” 
168 GET A: FORJ=1 70960: HET 226 PRIHT:PRIMT'FIHAL RPEADIWGS AS You" 
11@ FM=Fu-AM 225 PRIHT" TOUCHED DOW OH THE" 

128 CHSAR-2 226 FRIHT"LUMA SURFACE: " 

125 A= 238 PRIHT: FRIMT"FUEL: "FY 

138 HRSHHAVE+CE 4 248 PRIHT"VELOCIT Ys "ye 


VINCENT VAN 
VIC 


You control a red diamond using “A” (up), “2” (down), “,” (left) and “’.” (right) to 
draw out a picture on the screen. You can stop the moving diamond at any time by 
pressing any key except for the four indicated. You choose the colour you wish the 
computer to use by pressing the relevant colour key. Pressing a colour change key 
will automatically stop the diamond moving, so it is ‘drawing’ in the new colour 
when it is started again. 


The computer starts drawing in white, so it is invisible on the white background. 
You can therefore move the red ‘cursor’ diamond to wherever you like before you 
start drawing. You can also move it anywhere on the screen during the course of a 
drawing, without leaving a line. ‘Drawing in white’ can also be used to erase 
unwanted parts of a drawing. 


REM VWIHCEMHT VA WIC 

REM MOVE RED DLAMOWHD WITH THE A 2. . KES 

REP TO CHAHGE COLOR PRESS THE HUMBER OF THE COLOUR ‘rol WAHT 
REM TO STOF CURSOR MOVIHG HIT Ay KEY EXCEPT FOR COMTROL OHES 
ty THIS)! > GOSuUbss4 6 

GETAF: IFAF=""THEMAE=BE 

LFAS2 "8" AMTIAE< "9" THEMLSVAL CAS 3 ~1 

Esl: TSS 

IFA#=". "THEHSSS 
IFA#=". "THEHS=S 
IFAS="A" THEHS=5 
TFAF="2" THEHS= 
[FPEEK (S921 02THEM 
BS=A 
FORG=1TOR88 > HEAT 
FPOREE. Ll 

POREC. 2: PORES, Se 
GOTO. GG 
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CRAPS 


Craps is a relatively simple gambling game played with two dice. The simplicity of 
the game itself is somewhat offset by the complexity of the betting possibilities. To 
make it easier to learn, we’ve included two versions of the game: ‘Minimalist Craps’ 
to show you the game of craps in action, and ‘SF Craps’ which enables you to bet 
following some casino-like rules. 


As you can see, the first listing is very short indeed. Enter and run it, and you'll then 
find it much easier to understand the description of the game. 


To play, you roll two dice and add up their pips. If you rolla seven or an eleven onthe 
first roll (called a ‘natural’) you win, and that round is over. If you roll a two, three or 
twelve on the first roll (called ‘craps’), you lose. Rolling four, five, six, eight, nine or 
ten on the first roll becomes your ‘point’. The aim of the game— assuming it has not 
ended with the first roll —is to roll your point again, before you throw a seven. When 
you're sure you understand these instructions, look again at the first Craps program 
in action to relate what you’ve read here to the program. 


Once you've understood craps so far, you’re ready to enter the deluxe version of the 
game, SF Craps. In this version, you’re introduced to Craps betting. You can bet on 
the round overall for a win (‘Pass’) or on the round overall for a loss (‘Don’t Pass’). If 
the game lasts more than one roll of the dice, you can have a side bet on each 
subsequent roll, betting that a particular number, including seven if you like, will 
come up. You do not need to make the side bets if you prefer to keep the game fairly 
simple. 
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19 REM MIHIMALIST CRAPS 

12 G=G:H=G°L=a 

15 G=G+1 

2A BEs"YOU ROLLED" PRINT ©D" 


2S PRIWMT OPRINT"GAME HUMBER"G 
SE GOSUBSEE 
48 [FA=PORA=11THEH249 
5a LFA=SORA=S0RA=12THEH]36 
Sa FSA 
BA PRIWT PRIHT" YOUR FOIHMT Ts"F 
TA GOSURSA 
BM TPA=FTHEMWeS6 


IFA=F" THEHE44 
FORT=1TO1GG8: HEXT 
FRIHT' OT" : GOTOEA 

AH=LHTC RHO! 1 #6+RHDS lo ee+ 1 o 
FOR T=1 TOGGG8 > HEART 


Da) 


a mw I 


Sho Ppa ha he ee loom 


1 
FI 
1 
15 PRIWT: PRIWTBEA 
28 RETURH 
36 PRIHT' YOU WIM"  Web+1  GOTOeSea 
46 PRIHT' vou LOSE" :>L=L+1 
S58 FORT=1 TOES: HEXT 
268 GOTOLS 


14 REM SF CRAPS 

15 PRIMT"c" :GOSUB 772 

20 Mo=2e 

30 GOTOLLS 

46 PRINTOM@aRESS RETURN TO ROLL" 

56 GET A¢: IFAS="" THEMES 

6G ASlHTCRHDCG2#63+1NTCRMDC Ge +2 

70 GOSUE 778 

8 PRINT" @atroU ROLLED"A 

S2 FORT=1 T0590‘ HEXT 

a5 RETURM 

166 IF MOC1 THEN PRINT"@YOU°RE @BROKE!" GOSUEFTA: GOTOL8S 
114 FORT=1T05908:HEXT T 

115 PRINTS!" FRIMT: PRINT YOU START ROUND" PRINT TABCS? 5 "WITH Se"M0 
126 PRINT’ S4PLACE YOUR BET" 

138 PRINT SPS TO PLACE BET": PRINT"OH PASS LINE." 
146 PRINT Ma D°S FOR DOW’T PASS" 

15@ GET BF: 1F E#="" THEN 15 

155 IF ES¢>"F" AWD B#<>"D" THEM 15a 

16@ B=) 

17 IMPUT" SIZE OF BET"GB 

184 IF B2MG OR BC1 THEN GOTO 172 

198 GOSUE 40 

208 IF ACS? AND AC>11 THEN GOTO 31a 

214 REM HATURAL 

226 PRINT" #§iYOU ROLLED A HATURAL" 

230 IF BS="D" THEN 270 

225 PRINT"ON PASS BET" 

249 PRINT" WBBBFYOU WIN #"B 

259 MO=MO+B 

269 GOSUB 77G:GOTO112 

27 PRINT "OM DON’T PASS BET" 

269 PRINT "IMBBIYOU LOSE £"B 

299 MO=MO-B 

20a GOTOLaa 

319 IF AC>2 AND AC>S AND AC>12 THEN 350 

326 GOSUB 77@:PRINT:PRINT"SSF MCRAPS!" 

225 FOR T=1T01@@:NEXT T 

238 IF BS="P" THEN 2e0 

349 GOTOZ46 
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IF MO<1 THEH 198 

PRIHT" SOU HOM HAYE £"MG 
PRIMT" SG?/OUR POINT IS "FT 
PRIMT" SSIMPUT HUMBER FOR": PRIHT"SIDE BET. OF PRESS” 
PRIHTSRETURM GFOR NON-BET" 
Kg="""C=@ 

IHPUTEKS 

IF K#=""THEH 4968 

C=VAL CEE 

IF Ci OF Ch1i@ THEH 4489 
THFUT" HOW MUCH": BD 


A GOSUB 718 


IF DMO OR D1 THEM 456 


A GOSUE 68 


IFAS? THEHE20 
IFASPTTHEMPRINT"@OU*VE MADE ‘YOUR POINT" : IFC=QTHEH236 
IFCS@THENS55 

IF Cl>A THEH 589 

PRIHT"AWD YOU WIM A SIDE" 

PRIMT "BET OF €"luI 

MOSMO+HI 

IFA=F'T THEH228 

BOTOSSS 

PRINT" YOU LOSE £17 

PRIMNT"OH YOUR SIDE BET" 

MO=Mo-WI 

IF MO<1THEH 199 

IFA=PTTHEH2 

GOTOS55 

PRIHT"@YOU ROLLED 7...." 
IFB#="D"THEHPRINT"OM DOH’T PASS BET": GoToZda 
PRIMT"OM PASS BET": GoTozes 

REM ODDSW1H 

WI=T 

IF ARG OF ASS THEM WISIHT< (het 594+. 55 

IF ASS OR ASS THEM WISIHTe CS#D 234, 55 

IFA=4 OR A=3 THEH WI=2#rI 

RETURH 

REM SOUT 

POKE 26876.15 

FORT=16 TO 188 STEP RHDciv#io4.5 
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SPEEDWAY 


Drive your little car around the track, under control of the joystick, or keyboa rd(“A” 
—up, “Z" — down, “,” — left, “.”” — right) at a choice of nine different skill levels. Your 


score is related to both the skill level, and to the length of time you manage to keep 
your car going without hitting the boundaries of the track. 


There is a highest score feature, so you can compete against yourself in subsequent 
runs. Your current score is clocked up continuously in the top right hand corner of 
the screen. Once you’re familiar with the game in its present form, change the 
racetrack (from line 8040) to one of your own design, or write a routine to produce a 
different race track each time you play the game. 


18 FEM SPEEDWAY! 

15 REM JOYSTICK VERSIOH 
2h HS= 

38 GOSUESEEE 

52Q POKES6S7S,15 

522 FORT=1T0SK : POKES6S7 
525 POKES6S7S, @: POKES6S 
S48 [FPEEK CPESA+CA+S2¢00 
F6G POKES PESE+CA+22eCD . 25 
STA POKES SS40@+CA+2e#eCD » 4 
Bee AESCA: ED=CD 

550 GOSLRSAAG 

60@ IF X=@THEHH=B 

620 LFCI>2ANHUM=22THEHCOSCDIR-1 

638 LFCIC22AHDK=-22THEMCOSCI+ 1 

648 IFCA>LAHDK=1THEMCASCA~1 

658 ILFCAC2@AMDH=-1 THEHCA=CA+1 

Be: [FRRZ2THEMMS-22 

SC=SC-—-4: PRIMA sted 18-SK 5 

POKES 284@0+AE+22#ED 2» 

IFA=@THEH S24 

POKESGS7S.15 

FOR =15ATOU250S TERS 

FOKES6S?77?. "7 

FORT#=1 T0745: HEXT 

75a HEART 

760 POKESGS7S. 4: POKES6S7 7. a 

765 SC=SCeCia-Sky 

77Q PRIM" SMB OL! SCORED Sc 

78 IFHS<SCTHEHHS=SC 

738 PRIHT" SeMMIHIGH SCORE IS"HS 

S8@ FORT=1 TOGA: HEXT 

818 GOTO 

2090 POKEDD. 127: S3=-< (PEEK CPR AHD1L2S99=8> :POKEDD. 255 

PAlA P=PEEK CPA > Si=-CCPANDS =O) (SZ=¢ CPRHDLE2=@) > S0=< ¢PAND4>=a2 
2620 FR=-CCPAHDS2946) > X=S24+53: 'Y=SO+51 

20328 H=-ISCK+1. +1 

2040 RETURH 

809A REMIMTIALISE 

8005 PRIHT "7" 

Saa7 FPOKEZESTS. & 

S618 A=8:REM CRASH FLAG 

S612 GOSUBSaaE 

SG15 SC=8: REM SCORE 

BEZH CAS2:° CURB: REM STARTIHG POSITICW OF CAR 
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S168 PRIHT "4 

Sir a PRIHT" 4 
S168 PRIHT" 
S130 PRIHT" 
S21i@ PRIHT" one 
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S250 PRINT" 2g Het 

S280 PRINT" akannnenuennnmnenunsnents 

8265 IFHS<>QTHEMRETURM 

B27@ DIMIS(2.29 POKES? 139.4: UD=27154 ‘PASAT LSP PR=37 152 
S280 FORT=OT02 !FORI=aTO2 ‘READIS(1. 7? :NEXTI.T 

8290 DATAG.-22:0,-1,4.1.8:22,8 


RETURH 

PRIMT" T)SSISISeeBIEHTER ‘YOUR SKILL" 
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GETBS : SK='VALY BS > 
IFSELORSE>STHEMS Ae 
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19 REM SPEEDWAY 
15 REM KEYBOARD VERSION 
26 HS=0 


38 GOSUBS@GG: REM IHITIALISE 

40 GOSUBS26: REM MOVE CAR 

38 IFA=@THEMGOTO4+6 

66 GOTOPSSa: REM SMASH 

19@ REM HOSE 

118 POKES6ES7S,15 

120 FOKESES7 3. RHOC A #1a+144 
134 FORTS=17TO16#SK. 

144 HEXT 

1356 FPOKES6ES7S, 
168 POKESGS75, 2 
178 RETURH 
228 REM MOVE CAR 

30 GOSUBIGG: REM HOISE 

S4@ [FPEEK“ Pe38+CA+224eC0 s=1G2THEMA=1 

Jee POKES PaSA+CA+2eeCl ) 35 

are POKES SE469+CA+ZS#C0 2. 4 

sel AB=CA:ED=Cr 

a2 GETAS 

BAA LFAS=""THEMAS=BF : GOTOsSa 

605 LFA 22"A" THEMIFAS<2 "2" THEMIFRS22". "THEMIFAS<>". "THEMAS="." 
628 LFA="A"AMUCDSe2THEHCDU=CU-1 

638 [FAZ="S" ANDCO“SeTHEMCDI=CIit+1 

64 [FA="."AHDCA 1 THEMCASCA-1 

Bae [FAS=". "ANICAC2RTHEMCA=CA+ 1 
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6 Be=ht 

E SC=Sl+1 

6 PORE ® SS4Q6+AE+22#ET >. I 
zy RETURH 


RPEMCRASH 

POR ESES PS. 15 

FOR'=154TOS5RS3 TERS 

FORE SSSP ‘1 

Foe T=1 70S HEAT 

HEAT 

FORES6SG7°S, 2: FPOKESBaEr?. & 

SC=S0 LEI-SE 

PRINT" SSBB BESO! SCORED" Sc 
TFHS SC THEHMHHS=SC0 

PRINT SRR BRBRHIGH SCORE TS"Hs 

FORT=1 7020086 > HEXT 

GOATOSBA 

RPEMIMTIALISE 

PRIHMT!O" 

AK=8: REM CRASH FLAG 

GOSUEBSbEu 

SC=E: REM SCORE 

CASZ:CD=S° REM STARTIHWG FOSITIGH GF CAR 
BE=" " u 

PRIM " [im eee eter rnin 
Q PRIWT "Re Ce A": 
BB68B PRIHT" Reese Wee UR eR"; 
8878 PRINT" @ @"; 
8980 FRIHT"S WEEE 4E"" ; 
8636 PRINT" i BE Z Br" ; 
8186 PRINT" & LE Ye" ; 
S110 PRIHT" 2% WY UML EE" ; 
S120 FPRIHT "Rage YOGB: RUE HE" | 
S130 FPRIHT" 2% YU = RB Wei’ ; 
Bid PRI" 2é OE = ER: 4" s 
S1i5@ FRIMT" Be WM Ce" ; 
B166 FRITS GRE EBS ZB" 5 
S17a PRIHT" RG Y% "5 
S188 PRIHT"# Bid RYE 446"; 
Sig@ PRIHT"% Bes Ye: GEG" ; 
8210 FPRIHT" 4é AE LEE" 
PRIT " 44 Ye BEE LEE" 
FRIWT" 244482 Giz YR 
PRIWHT " Z@Z2% BE 

PRL T " 2224 URE BEE" | 
PR LRT " RARE eae ‘ 
FE TUF 

PRIHT" COWIE HTER ‘YOUR SKILL" 
PRIHMT LEVEL {1 TO So" 

GETR#: SKSVYALSBS> 
IFSE<1ORSK>9THEHSE@ZE 

FETURH 
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TREACLE 
BALLS 


In this game of logic and deduction, you roll balls down a series of chutes numbered 
one to seven. There are three pools of treacle in the chutes. They may all be in the 
same chute, in three different chutes, or two in one, andthe third in a different chute. 
They may all be in the same chute, in three different chutes, or two in one, and the 


third in a different chute. You have six seconds (guesses) to work out where the 
treacle lies. 


When a ball hits treacle it either sinks (you'll be told THE BALL VANISHED) or is 
deflected to the chute to the right or left of the one it is in. If there is treacle in two 
adjoinning chutes, they may both act on the ball before it reaches the end, 
confusing you to some extent. 


If you wish to guess where the balls are, you enter ‘8’ instead of achute number, and 
then enter your three guesses. You will be told how many you had correct. If you 
think there are two pools in the same chute, you must enter the number twice in 
your guesses. If you fail to guess where the treacle lies within six seconds, you'll be 
told where it is, and the game ends. If you wish to make the game a little easier the 
first few times you play it, change the six in line 70 to a higher number. 


14 REM TREACLE BALLS 

20 REM POSITIOW TRERICLE 

3@ FORA=1 TOS 

40 BCAD=THT RHIC 187241 

SQ HEXT 

66 REM COUNT GUESSES 
FORH=8701 STEF~1 

PRIMT' [a0 HAVE"H" SECOMDS" 
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93 PRIWT SEMTER BALL CHUTE Ho," 
& PRIHT'OR & TF YOU THIER ou" 
SY PRIHT’KHOM WHERE THE" 
Be PRIHT' TREACLE LIES" 
SQ THPUTC: lLFCH8THEMSage 
95 GOSUEBSAAR - 
LEI T= 4 
118 IFB¢DS=CTHEHL ea 
126 IF DS THEM Ti=D4+1:G0To11ie 
125 GOSUB488e 
136 PRIHT'STHE BRILL ROLLED" 


146 PRIHT"OUT OF"C 

156 FOR 2=1 702080: NEXT 

166 HEATH 

17°76 PRIHT" MGISORRY. TIME IS wr" 
186 PRIHT" SFaTHE TREACLE WAS IH" 
194 FOR A=1TOS 

2664 PRINT BCAs 

216 HEAT 

226 EMI 


18@@ FEM TREACLE! 
19169 IF BHDCLot=.9 

1926 IF C=1 THEW C=e A 

1638 IF (=f THEM C6: GOTO1Hea 
1646 FeIHTCRHD 1o#29-1 

1666 C=C+F 

1H7 5 GOTOLSS 

Shae REM LOST 

PRIHT'8THE BALL “AW ISHED” 
GOTO156 
PRIMT" Seqete" TABS S+0 950 
FORZ=17TOS = 
FOR'=17TO18#2 > HEAT? 

PRIHT TAECS2:"S9TTITTT " 
HEAT 

RETURH 
PRIHTTARS S40 35 "Ri" "ote" 


GOTO aR 
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4838 RETURH 

S608 REM TRIAL GUESS 

SB16 PRINT ok. WHERE DO oll" 
SHZ6 PRIHT'THIMK THE TREACLE" 
SA20 FRIHT"POOLS ARE?" 

S648 IHPUTO. Los Gt2o, Gens 


SR=o 

FORYS1 TOS HCY 9=Bo4d MEXTY 

FORH=1 702 

FORM=1T03 

IFOCMI=B CH THEMSR=SR+ 1 ECM S8 GM so 
HEXTH H 

FORP=1 703 

BCP OSHCPD 

Sie? HEAT 

S1i1@ IF SR22THEM 5156) 

S1i2@ 1F SR>@ THEN PRIHT "YOU GOT" Sk"RIGHT" 
5130 IF SR=G THEM PRIMT"HROWG. WRONG, HROHG" 
Sida GOTOISE 

S150 PRINT’ Wes, YOU GOT THEM" 

S160 PRINT"WITH"H"SECOHDS TO Go" 
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ENGULF 


In this game, you are moving about (most musically, as you'll hear) trying to avoid 
being trapped by the coloured blocks the computer is placing on the screen. You 
have to keep moving as long as you can. Eventually, thanks to the clever VIC, you 
become engulfed by blocks, and will not be able to move any more. you'll be given a 
score related to how long you managed to remain free. 


Your movements are controlled by the same keys as in Zombie Island —“A” up, “2” 


down, ”,” left and “’.” right. 


14 REM EMGULF 
26 GOSUES49q 
38 SC=8:° REM SCORE 


1668 GETAS: [FAS=""THEMAS=BS 
1618 E=C: f= 

1926 IFA#S". "THEMS=S41 2 Cs04+1 :H= 
1636 IFA#=". "THEHS=S-1 9 C=C-1: Ns 
1646 IFA#="A" THEMS=S—22 : Cac-2o: 
1958 IFA#="2"THEMS=S4+22 : Catt+oo: 


1G68 WEPEEK CS): F=e 


187 [FW=1G2THEHCSE : San 

1875 IFPEEKCO+229=162THEMF=F+, 25 
1876 IFPEEK(Q-229=162THEMF=F+, 25 
1@77 IFPEEK {G1 9=182THEHF=F+, 25 
LPG LFPEEK CGH+1 9=162THEHFSF+, 25 
1896 IFF=1THEHZAoE 

114 SC=sc+1 

1114 H=7EAS0+1HTCRHDC G2 44849: [FPEEKCH)=102THEM1110 
1128 JSH+S30726:POKEH. 12 

1196 M=IHTCRHDOCG #73: [EMS1THEML ISA 
1146 POKEI.M- 

1150 POKES6874.H: POKES6e7S. M41 
1200 POKEE, 1 

1216 POKEC, 2: POKES, 216 


122h BE=At 
A GOTOeEe 
PORES6873. 


GOTOSA3E 
PRIMT "ry" 
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‘PORE2+36741.2:°HE 


TIGHT SQUEEZE 


This 


program is fun to play, especially for younger children. The VIC selects two 


numbers between one and 13, tells you how much money you have, and asks you to 
bet on the likelihood of the third number lying between the two numbers generated. 
If you are correct, and the third number does lie between the first two, you win 
double the amount you ‘invested’. If you are wrong, you lose the amount. so long as 


you 
you 


have money, you'll be offered new rounds of the game. You start with $20, and 
can bet any or all of the money you have in hand. 


19 REM TIGHT SQUEEZE 


D=26 


25 PRINT"?]":REM CLEAR SCREEW 
36 A=INTCRNDC 19 #13>4+1 


66 C=INTCRND( £9 #13241 


26 PRIHT"@MY FIRST NUMBER IS":A 
96 PRINT" MY SECOND IS";B 


WwW MMP MM hh hae 
Ve Ow Ww ww ms 


A INPUT E 
A IFECL THEM PRINT" SCR0@ARGR Da! |" 


3 GOTO326 


B=IHTCRND¢15#139+1 


IF ABS“ B-AI<2 THEN 30 % 
Oz 
IFA=C OP B=C THEH 60 


PRINT 
PRINT"GWOU HAYE mae"; 0; "a" 


£3 
on MUCH DO YOU BET" A “erm? Ni GIN 


PRINT" NEXT HUMBER LIES” 
PRINT" BETWEEN"; As "AND": B; 


IFESD THEH 150 


FORZ=1T0999 :NEYTZ 
PRINT" SM NUMBER IS";C 
IF E41 THEN 296 & 
IF HOT (CDA AND C<E OR CCA AND CB) THEN Urs 
PRINT"WELL DONE” 6 py aad A oer: 
PRINT*RYOL WIM #"328E Wn ian \euiseeassanl 
D=D+24E 
GOTO 23a 
PRINT"MaSORRY, YOU LOSE $";6; "a" 
D--E 

IF D<1 THEN 310 
FORZ=1T02006:HEXTZ 
FORZ=11024 : PRINT 
L-INTCRND¢1)#5003+1 
C=INTCRND(12#89+1 

POKE 7688 + L, 16a 

POKE 38400+L.C 
FOR™=1T050 : HEXTY 

HEMTZ 

goToZs 

PRINT" THE GAME 1S RMOVER!! a" 
PRINT"ANOU ARE BROKE "; 
FORZ=1 T0999 :NEXTZ 


ane. 


FRUIT MACHINE 


This splendid program, which uses the VIC’s graphics most effectively, was written 
for the book by M Kendall. There are three reels, and each reel has four symbols. 
You can stop all the reels, then either HOLD or NUDGE each one. 


Due to effective government cost-cutting, you start with 5p, and each game costs 
you just 2p. 


The winning combinations: 


Same, same, same -5p 
Same, same, any -3p 
Any, same, same -1p : 


Your controls: 

Any key to stop the reels 
N to NUDGE 

H to HOLD 

Any to play again 


OW POKESOS?S. 27: PRIHT" Ta BY M.KENDALL 19382" 


i PRINT" SM = SO YOU WANT’ :PRINT" © SIMLHSTRUCTIONS?" :PRINT" OM ee OR 
ND?" 
2 GET@$: IFGS=""THEHZ 
3 IFRE="¥"THEN GOSLB1a08 
4 L=5 
5 PRINTS" 
6 L=L-2 
7 WS 
S FOKE 36878,16 
9 POXE 36979. 72 
iG ASCLI="8 aA = SO "=" | WM" 
26 ASC2)=" MIMO ad SOI | | Se 
30 AS(S9=" HEM SRG |S cle 
49 AS(4I=" Tie Ri Md SRE |" 
45 FORN=1T03 
SQ A=INTCRNDC1 984941 
Si ACN=A 
54 G=(N-1)#7+1 
PRIHTTABCG)" EEL ETEy sUGGSEEE! UERESEI xEREBERI 


cn 
= cn 


a5 PRINT" = 


66 FPRIMTTABCG); FSC) 

61 POKE 3607 5/20G : FORZ=1T010: NEXT :POKES6875.98 
66 PRINT"#3" 

76 NEXTN 

88 GETAS: IFRSCe "THEMIS 

189 GOTO4S 


198 FORN=i TIS 

25% SETHE: TFRS="" THEMES 

219 TFUSS"H" THEHESS 

224 TFQS="H" THENGOSUB389 : GOTO248 

238 GOTO2B6 

249 PRINTTABSCN~-1 #7 71> "AU DGETTIIIITN" 
245 GOTIZ66 

298 PRINTTABSCN~1)%7+1) "MO HOLDITITITIY" 
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57g LeL+W:PRINT'S MONEY LEFT—_"5L 


738 


21939 
2396 
218g 
21i6 
2128 
2138 
7999 
8888 
GUT 

3881 
6662 
8895 
8618 
8B15 


i PRINT" 


G@ PRINT’® ‘OU CAN STOP ALL THE 


8 PRINT"EACH GAME COSTS 2P. 
A PRINT" MAKFRESS BAR TO CONTINUE." 


@ PRINT THE CONTROL KEYS ARC: 


NEXTN 

GOTOS88 

END 

A=INTCRNDS 1 #4) +1 

ACND=A 

PRINTTABS CN-1 #741)" TTT yi TTT TT Oannen) et 


PRINT" 30" ; TABS CN-1 #741 A$CAD 

PRINT" 

RETURN 

PRINT" SOO NNT HGS" : 

IFAC LI =ACS2ANDACE =A C3) THENWES ‘ GOTOS50 = 
IFACid=AC 2) THEMWES 

IFA C2)=AC3) THEHW=1 

PRINTS "IP MINUS 2P " 


3 PRIHT"M FOR THIS GAME" 


IFH=STHENPRINT" AMJACKPOTETI" : GOSUB9GG 
PRINT" XA" 


IF Lo28 THENSOO8 
IFL<@THENPRING "TTT WOU ARE BROKE! !":GOTO?66 
GETMS : [Fine<o" "THEHS 

GOTOEGE 

PRINT" MATHATS THE END FOR YOU" 
FORZ=128T0255 : POKES6877,Z:FORT=1T016:NEATT,Z 
POKE36877.8 

GETO$: IFQ$=""THEN? 16 

RUN 

PRINT"<2" 

PRIHT"S YI0 FRUIT MACHINE 


PRINT" & THERE ARE 3 REELS 
PRINT"AND EACH REEL HAS FOUR 
PRINT" SYMEGLS. M ’ 


PRINT"REELS THEN EITHER HOLD 
PRINT" OR! NUDGE EACH ONE. 
PRINT" @ ‘OL START WITH SP ee 


GETA¢: IFA#=""THENi126 
PRINT!" 

PRINT" THE WINNING PATTERNS 
PRINT" ARE: 

PRINT"& SAME SAME SAME=SPH 
PRINT" SAME SANE ANY =3PH 
FRINT" ANY SAME SAMNE=1F8 


PRINT" ANY=STOP REELSA 
PRINT” H=NUDGEM 
PRINT" H=HGLDA 

PRINT" ANY=SPIN AGAIND 
PRINT" PRESS BAR TO PLAY" 
GETA$: IFA¢=""THEN2126 
RETURN 

END 

PRINT" CONGRATULATIONS": PRINT" MrGU-VE BROKEN THE BANK": PRINT" si I’M 
OF MONEY 

POKE36878, 15 

POKE36879, 24 

PRINT" MSORR7, THATS THE END" 

FORN=1T01i2 

READA: POKES6875,A 
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ee FORZ=1T0i5@:HEXTZ 
8938 MEXTH 

86946 DATALS5, 147,135, 175,175, 163,183, 183,191,195, 195, 195,27 
8196 RESTORE 

3119 FORN=1T01i3 

SilS READA:POKE36S76,A 
3126 FORZ=17T0156:NEXTZ 
6136 NEXTN 

6135 PRINT"S" 

$149 POKE36875,6 

8159 EMD 

3Q06 


haat 
al Pa 


9538 REN 


REVERSE 


In this brain-boiler, the computer randomly mixes the numbers from zero to nine, 
and you have to put them in order in as few ‘reverses’ as you can. I'll explain what a 
‘reverse’ is. If the computer had generated the sequence 5924861703 and entered 1 
in response to the question “REVERSE NUMBER?’, the sequence would be reprinted 
as 3071684295. Entering 4 would then produce 3075924861. That is, the digits from 
position four to the end would be reversed. As you can see from line 170, the 
sequence the computer is looking for is 0123456789. Get the numbers into that 
order, and the game is over. It may well take you 40 or so moves to order the digits, 


unless you're particularly clever — or lucky. 


16 FEM REVERSE 
5) fe 1 = HE ° Ag= was FRIHT uy 
26 FORTSATOS 


46 L=IMHTCRHDS 1 #18445 

SE r=] 

BE TPM IDACAS. O. 1 3=CHRECL o THEHAe 

Te IF@QIT THEMGS6+1 : GoOTORE 

S60 Ae=AF+CHRE CL 

SQ HEAT 

LHe PRINT SMOOVE HO. "MS PRIETO" 3 Ages eg 
114 THPUT REVERSE HUMBER" GR TFRAORRSSTHEML 1a 
126 Be="" 

138 FORT=1eTORSTEF-1 

146 BS =BS4+MLDSCA#. To 13 

158 HEXTT 

166 AFSLEFTECAE. R-194+Bs 

IPQ IFA#="8123456789" THEMIS 

Ish MsiM+1:G0TO1ee 

198 PRIHT"2mistOuU DID iti 

195 PRIHT' "As - 

SAHA PRIWT' MIT TOOK HM MOVWES" 
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SEPULCHRE 
ORGAN 


Sounding like a mournful choir in full cry in a haunted house, this program lets you 
play the bottom row of keys of the VIC as though it is an organ. The notes 


corresponding to the keys are: 
C (Z), D (X), E (C), F (V), G (B), A (N), B (M), C’ (,) 


The note you've pressed will continue until you press another key. Touching any 
other key from those marked will stop the sound. RUN STOP will, of course, stop the 


program. 


Here is TWINKLE, TWINKLE LITTLE STAR: 
ZZ BB NN B 

VV CC XX Z 

BB VV CC X 

BB VV CC X 

ZZ BB NN B VV CC XX Z 


16 REM SEPLILCHRE ORGAH 

i2 PRIBT* oO" 

13 DIMBC16>.C#ec165 

26 FORA=1TO16 

3@ READBCA? : READCE A? 

424 HEXTA 

“8 DATAISS, "2",147."%".159,"C" 


& me TPS, ee 


64 FOKES6S78. 15 
7@ GETAS 
38 FORAR1TOS 


165, 41032 "HH", 191, "M",I95,"5" 
J DATAZSS,. "2".228,"%",231."C", 2392. """. 2385. "B". 237, "H",299, "4",240,"," 


98 IFA¢=C#¢A) THEMPOKES6S76, BCA? POKES6A7S, RCAD : POKESGS74. BCA? : POKESEATS. BCA+SD 


1@@ HEXTA 

11@ IFA#=". "THEHGOTO1Sa 
14a GOTOrS 

158 FOKESE876; 2 

164 POKESE875. 

17a POKES@874.,4 

196 GOTO?TA 


5\ 


oe JAM 


There are two versions of this program. The first uses the keyboard to control your 
car (““A’’—up, “Z’”’—down, ”,””—left and “’.””— right) while the second uses a joystick. 


The aim of the game is to drive your car (a red asterisk) from the top left-hand corner 
of the screen to the car park (the red oval in the bottom right hand corner). You will 
be asked first to pick a skill level, from one to nine. One is the hardest, and nine the 
easiest. A number of cars (coloured diamonds) will appear on the screen, the 
number of cars being related to the difficulty level you chose. The carpark will flash 
off and on for a few seconds, and you'll appear in the top left hand corner to make 
your journey. 


You can only score if you make it to the car park without hitting any of the cars, more 
and more of which appear as the game progresses. Your score is related to the skill 
level you choose, and the time it takes you to drive to the car park. The keyboard 
version only allows movement up, down, left and right while the joystick version of 
the game also allows diagonal moves. 


168 REM TRAFFIC JAM 

135 REM KEYBOREDI VERS IOH 

2A HF="HAGGEE" > Ho=6 

SA PRIWT'T" 

46 GOSUESS46 

1866 GETA#: [FAS=""THEMAS=HBS 
1818 Est: mes 


1820 IFAS="."THEMS=S4+1 C041 
1938 IFA$="."THEHS=$—1:C=C—1 
16468 IFA¢="A" THEHS=$-22 :cet—2o 
1958 IFAS="2"THEHS=S4+22 : Cec+ee 


1878 W=PEEKCS3 
1675 IFH=81 THEN2a 46 
1886 TFM=1827THEMC=E : S=i 
1698 [FM=S6THEMSEaR 
1268 POKEE, 1 FEM ERASE WITH WHITE 
1218 POKEC. 2: POKES. 35 
1228 BE=A¢ 
238 R=IHTCRHDC GS #45S5+7 Ped: hoeh4+serce 
1248 W=PEEK CRY 
256 IFWS1@2THEHI 228 
1268 POKESS87S. 15: POKES6S75. 1464+¢R-Preadied : POKE SES 
278 POKER. 98° POKERZ. YVALCMIDS<P$, LHTCRMDCG #6 3+ 
1286 FORO=1 TOSeG-1:° HEMT 
1588 GOTOLEESE 
S688 REM CRASH 
2616 PRINT SHBR OL HAVE CRASHED : M=6 
2626 PRIHT" SeRBBITIME: "RIGHTECTI¢, 29" SECoWDS" 
2638 GOTOSe8ea8 
2644 PRIHT SM eDPPO MADE IT! 1": t=4 
26560 POKESSSe1. 1 
SH68 FPOKESSS60. 1 
SATO GOTOSAZA 
SABA TY=VALCTIA2 


S.A POKES6S?S, @ 


Mi 
ad rer 
Se 
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A! 

bet 

rem im 
mmf oT 


mi 


‘at 


Hho ko ha od oo ha oo 
Mai im Ei 
= 


LP ae 
‘ale 


mH) 1 
1a 


hi 


oe ee es ee 
Sie me 


on ogy 


9569 
9574 
9536 
9536 
3EaG 
9628 


a 


ll 


a = 
ANC Bc a) 


hoe OO 6 


wrt 


Sou WG WD Wo woe 
i-ad SO mm 4 


Im) iE 


3 SS TMT CCST 1 Be eM 


IF S2HSTHEHHS=5 


> PR THT" en BISCORE : "Ss 


PRINT SUBBIHIGH SCORE: "HS 

FORT=1 T2600: HEXT 

GOTOSE 

PRINT MMINSKILL LEVEL <1 To 997" 

GET 2¢: [FE#=<""THEHSa18 

GSVALCZe 

IFG< LORG>STHENSE1 6 

PRINT "21" 

RETURN 

S=7783_ 

C=3842 

Pe= "654220" 

Bee", " 

GUSLIESGGG 

FORZ=7690TO77G1 !POKEZ. 182: POKEZ+30720, VALCMID$<P$, INTCRND(O9#69+1, 19> +NEXT 
FORZ=8164T08185: POKEZ, 12: POKEZ+30720, VALCMIDS<P$. INTCRNDCO #6) +1, 129: NEXT 
FORZ=76@0Tle1 64STEP2Z2 : POKEZ, 182: POKEZ+30720, 0: POKEZ+21 , 102: POKEZ+30741,0'NE 


FORU=17T025-246 

R=1HT CRHDY 69#4569+7764 ‘ R2=k+30726 

POKES6S79. IHTCRHDC G9 #12er a+) 

W=FEER CR 

IFH=182THEHS6S4 

POKES6S7S. 15: POKESES?TS, 1444+¢R-T77845-4: POKES687S. 6: POKES6875,6 
POKER. 9@°POKER2. YVALCMIDS¢P#, IHTCRHDC A #6241. 1239 

HEST 


32 PORES6S7S. 26 


5 FORL=1 7056 

| POKESI62. 1 

> POKESSS82, 8 

| FORT=1 7018: HEXT 
1 POKESSS82. 5 


HEAT 
FORT=17T01 888: HEXT 
TI#="Hapagn" 
POKESSSSS, 2 
RETUPRH 


14 REM TRAFFIC JAM ¢JOYSTICK VERSIOH> 

15 DIMIS¢2.23 

2A HS= 

38 RESTORE : GOSUBS4S& 

S18 POKEDD, 127: S3=-¢ (PEER CPBOAHD1 28 9=8) > POKEDD, 255 

S28 P=PEER CPA? > Sil=-CCPAHDe)=69 :Se=¢ (PAMDLE S68  Se=¢ CPARMD43= 
aa FRe—* CPAH S2ISHI' HSSS+S3' Yeso+sl 


1fig 
1626 
ges 
147A 
18r5 
16S 
1A98 
1Zbo 
1218 
1e38 
1248 


E=C:G=S 

S=S+IS¢CH+1. +15 

C=C+IScat+ s+) 

W=PEEK. CS 3 

IFW=21 THEH2A4h 
IFW=182THEHC=E : St 
IFW=S8THEH2ae 

POKER. 1° REM ERASE WITH WHITE 
POKEC.2:FOKES, 35 

R=IHT CRHD CG 2#4580+7 784 > ho=h+387 28 
W=PEEK CR 
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1258 
sie 
12 ore 


120 


1566 
Abia 


IFW=182THEHL S34 

PORES@S78. 15° POKES6S75, 14a+¢h-7reid ye: FORES6S7S,.6:POKES6S75., 4 
POKER. 98: POKER. YALCMIDS¢ Ps, LHT< FPHDICA#69+1,155 

FORO=17024#G-1 : HEXT 

BGOTOS14 

FEM CRASH 

PRIHT" SQ@ROL HAYE CRASHED": M=6 


A GOTOSa7S 


A PRIWT Seo! MADE IT)! sted 
5 PORES 


VSL 1 


AAG 
Biel 1 El 
Saen 


Woh oh oh i 


Wi 
Die) a 


Ara | 
et Uh A 


ADIGA e ai 


Loup uo Wd ug Ay 
1 te i) 


WW 4a 2 lo i wo 
1m hh Am oh Oo 
ho oo 
Hr i 


LOM AA 


WO WAbhWWW WOW | om my 
WOOO oOaeawa 


WOW WO UD WL A Wo A 4h, 


PRIHT" SRRBITINE: “RIGHT#CTI¢, 23" SECOHDS" 
S=THT¢oSea—-\ MAL TI: VSELSRS SAGEM 
IF S2HSTHEMHS= 


a PRINT" AMBIECORE: "S 


PRIHT " Mem IGHSCORE : "HS 
FORT=1 TO 3688 : HET 


A GOTOSa 


PRIMT Meets ILL LEVEL ¢1 TO aoe 

eau 2¥F:° TF 2¢=""THEHSG18 

GEYVAL CSE 

IFG10kG2S7THEHS818 

PERLE sy" 

RETURH 

PRINT cy" 

REMIHITIALISE - 
PORESVIS9,8:D0=37 154: PASSP lar: PRESS? ise 
FORZ=8ToOe : FOR I= arOS READISC) et HEAT I.2 
DATA-23.-22.-21.-1,8.1.21,.22,23 


Se77as 
Caaa423 

Peo" 654320" 

BOSUBSREE 

FORZ=?6GOTOP7@d ‘POKEZ, 142: POKEZ+30720, YALCMIDS¢PS, INTCRMDCO#E 41. 199 MEST 

FORZ=8 16470185 ‘POKES, 182: POKEZ+30720, VAL¢ MIDS (PS, INT CRNDCB2#6 241, 19> ‘NEXT 

FORZ=T6SOTOS 1 64S TEP 22: POKEZ: 192: POKEZ+307 20. @:POKEZ+21. 102: POKEZ+30741.6:ME 


FORU= 1 TOSS -2#6 

R=THTCRHDC As #45594+7 7 A4 : R2=R+307 26 

POKESES7 9. [HT CRMDC G21 SP 34+) 

WEPEEK CR 

IFW=182THEHMS Sa 

POKES6S7S. 15: POKES6S?S.: 146+¢R-PPad 3-4 > POKESSS7S. O° POKESREPS. A 
POKER.» S61: POKERS YALCMIDS¢P$) INT CRHDCAS #6 +L, 153 

HEXT 

POR ESEE7S, 26 

FORL=1 T0561 

POKESi62, &] 

PORESSS32 8 

FORT=17T018: HEXT 

POKESSSs2,. 5 

HEAT : 
FORT=17TO1 806: HEXT 

TI#="880GR88" 

POKESS&aS2, 2 


RETURH 
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LONG JOHN SILVER 


This is very simple program which you can use as the core of any program when 
you want to hide something on a grid. In this case the grid is 19 x 18, and after each 
guess you are given feedback as to where the gold is hidden. 


Structure of the program 

Lines 1@ and 20: ‘Hide’ the gold. 

Line 39: Loop to count guesss 

Line 68: Accepts player guess, strips it to two numbers to ‘process’ it. 
Lines 13@ to 199: Feedback on the accuracy of the guess. 

Lines 210 to 226: End of game if not guessed. 

Lines 230 to 26@: End if the treasure is found. 


Suggestions for improvement 

@ Change the size and shape (triangular?) of the grid. 

@ Add some ambiguity to the feedback. 

@ Use sound for the feedback (high notes for close, low notes for far away). 
e@ Add a sound routine to the win routine. 


7 POKE 36879, 15 

8 PRINT"&" 

18 A=INTCRNDS 1 o#1 6541 

28 B=IHTCRND! 1 #10541 

28 FORZ=1T018 

25 PRINT" &i" ‘PRINT 

4@ PRINT"YOL! HAYE ONL” 

5S PRINT1@-2; "#SECONDS LEFT!” 
50 PRINT'MHHERE 1S THE GOLD": 
68 IHPUTM:C=INTCM/ 18> > D=M-C#16 
7Q IFA=C AND E=D THEN 230 

138 FRINT:PRINT"IT IS NOT AT"; C.D 
135 PRINT 

146 PRINT"HERE IS A CLUE:-" 

15@ PRINT"ATRY TO THE “; 

160 IF ASC THEN PRINT’ SOUTH" ; 
17@ IF ACC THEN PRIHT"GNORTHH" » 
18@ IF B<D THEH PRINT"GWESTH" 
13@ IF B>D THEM PRINT" SEASTA" 
246 HEXTZ 

216 PRINT:FRINT"STIME IS UP" 
215 PRINT"MTHE GOLD WAS AT"; A:B 
228 END 

220 PRIHT"WSEGLEL “DMOWNGE 3! !" 
246 S= RND« 12#18086 

245 PRINT"h" 

258 PRINT"YOU FOUND 2"; INT¢S/2); 
255 FORT=1T0SS5:NEXTT 

268 GOTO 258 
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BREAKOUT 


This version of one of the original computer games makes good use of the colour 
and music capabilities of the VIC. It is very simple to play. You have nine balls at the 
start of the game, and so long as you manage to bounce the ball off your slide at the 
bottom of the screen, the ball will stay in play. 


Each time you miss the ball, your ‘ball count’ (top left hand corner of screen) is 
reduced by one. Each time the ball count is changed, your score is changed as well. 
You get a score every time you destory one of the coloured bricks at the top of the 
screen. ; 


You control the action of the slide with “Z” (moves if left) and ““M” (moves it right). 


1 REM BREAKOUT 

3 POKE36878, 15 

16 GOT046 

28 K=~K 

22 POKE36876, 208 

29 RETURN 

38 Y=-4 

32 POKE36876, 226 

39 RETURN 

46 PRINT"®1" 

38 SC=9:2=9 

68 FORJ=23TO1G8STEP 3 

78 POKE 7688+J,182 

73 POKES8486+J, CINTCRND¢ 1 #8 > 
86 NEXT 

98 F=1@ 

118 * 
128 A 
136 B 
166 IFAC@ THEN GOSUB 26 

162 IF A>26 THEN GOSUB208G 

165 ASAtK  - 

186 IFB<1 OR B>2G THEN GOSUB 36 

135 B=B+y 

266 IF PEEKC7680+22#A+B9=162 THEN GOSUR 5006 
308 POKESi62+F, 32 

316 POKE 8165+F,32 

326 POKE 8164+F, 102 

338 POKE38884+F.8 

246 GETAt 

356 IF R$="Z" THEN F=F-1 

368 IF At="M" THEN F=F+1 

469 POKE 7686+22#M+H, 22 

368 POKE ?686+22xAtB, 42 

3835 POKE38400+22kA+B, a 

318 POKE36876.@ 

916 M=A:H=B 

928 GOTO1EG 

2629 GOSUB2E 

2005 IF ABS¢F~Bi<2 THEN RETURN 
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2816 2=Z-1 

2615 PRINT" S@§BALL"Z = 
2628 FORT=1T020 

2022 POKE36976,128+ 4%T:POKE36876,6 
2623 NEXT 

2025 IFZ=@ THEN 6666 

2834 RETURN 

5@096 POKE 7680+22#A+B, 32 

5@Q1 POKESES76.8 

safe FORK=1TO18 

5QQ3 POKE36877. 255-10#K : POKESES 77 » 6 
5004 NEXT 

3@A85 SC=SC+367 

5014 PRINT" =MIBALL"2" SCORE"SC 

5828 GOSUB2a 

5568 RETURN 

6008 _POKE36876,8 

6005 PRINT" 34a END ” 

6016 GOTOEGIG 


NIGHT ON A WILD 
MOUNTAIN 


This program is perhaps best saved for those people who say: “It’s very nice having 
a personal computer, but what can you do with it?’”” Once having seen (and heard) 
this program, they may well be convinced that perhaps they should not have asked. 
The music is wild and random, as befits the title, although the graphics have 
symmetry and order. Enter this program just as it is listed here, then try and work on 
it to bring some order into the music. 


5 PRINT" 7" : : 
16 REM NIGHT ON A WILD MOUNTAIN ees Li eg THEN23@ 
12 REM CRANDOM MUSIC, PATTERNS) =p 
15 M=INTCRND(19*8? ‘ 
ene 235 IFRND(1)>.3 THEN25@ 
20 R=INTCRNDC19#18) 
30 B=INTCRND¢1)#18) 246 POKES6877.8 
ae 250 POKE36876.0 
c= 500 GOTOIA 


3@ D=38631 

6@ POKEC+A, 102:POKED+A, IM 

7@ POKEC-A, 162: POKED-A,.M 

8@ POKEC+11#A+B. 102:POKED+11#A+B. I 
9@ POKEC-11#A-B, 162:POKED-11#A-B,M 
97 IF RND(19>@.3 THEN 120 

104 POKES6879, 16% INTCRHD¢19#169 9+INTCRND¢1)#8)+8 
126 POKE36878. INTCRND(19#159+1 

13@ POKE36874, INT(RND(19%1289+128 
146 POKE36875, INTCRND¢1>#1289+128 
150 POKE36876, INTCRND¢19#1289+128 
188 POKE36877. INTCRNDC1)#1289+128 
195 IFRND(13>.1 THEN2@S 

268 POKES6879.,0 

285 IFRMDC19>.3 THEN215 

21@ POKE36874,90 
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SPACE FIGHTER 


You pilot your V-wing space craft across the void, trying to hit the numbers which 
appear at random on the screen. You must be quick, for they only stay there a short 
time. Your score is related to the number you run over. The sound effects in this 
program, and the appearance of the V-wing, are very effective, and you may well 
wish to use these in other space fight programs you write. 


As usual, you control your ship with “A” (up), “Z’”’ (down), “,” (left) and.” (right). 


1@ FEM SPACE FIGHTER 

15 HS=8 

2A RESTORE 

25 GOSUBS498 

1900 GETA#: LFAS="" THEMHAS=EE 
1665 PRIA" SSHRECORE" Sc: 

1G1G E=C: Ges: 

lG@2@ IFA#=",. "THEMS=S4+1: CAerd WAG 
1638 ITFA#="5 "THEMSSS--1:Cs0-1: ser 
1446 [FAS="A"THEMS=3-22 : Cato: 4: = 
1638 [FA#="2"THEMS=S+22 : CaC+22 : vase 
1H6G WePEER SS % 

1678 TFW=182STHEHMCSE : Se: veh] 

1875 Fo 

1686 [FW>4S7THEHIFU<SSTHEMSCSSiC+Wer od (F=1:POKES6S PS, 15° POKES6aP Pr. A 
Lease IFF=1THENFORT= L335 T0238: POKRESSS?S, 7: HET PORESSSFS. & 


Lae? FOF TES6S7S. 7° ROK ESSarr so SEAS CAF I+7R 
1938 IFPRHDCGo>,. SSTHEMPOKECCOCS. @: POKEBCOC). 49° CCeCC4+1: POKERC OOo. ACCC): POKECCOCS, 


—_ 


118@@ IFCC=S57THEMSaan 

L268 PORKEE.& 

L218 POKEC, 7: POKES, 

1228 BEsAt 

L238 GOTOLAA 

SAGA PRIM" SR RIREATIME IS UP" 

SB18 PRINT SG RIstyOu SCORED sc 

S628 [FHS<SCTHEHHS=SC0 

SESE FPRIHT" SBIR IGH SCORE: "HS 

SH35 PORESSSPS. & 

SE8 FORT=) TOSG88 > HEXT 

S658 GOTOSE 

S498 PRINT" 

S48 S=PPaa 

Cassdde 

BF=" . " 

FoResrraetarraa: POKEZ, 162 ‘PORES+38728, 7 > WEST 
FORZ=S164706185 > POKEZ. 162: POKEE+ Sais bdbatars oT 
FORZ=r6s8TOsl64STEPS2 : POKES. 182: POKES4+30726. 7: POKEP+21. 182: FPOKE2S+397°41.7°HE 


pa | 
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Gi Gi tw 


f 


IFHS<2ETHEHS64a 
DIMACSS). BOSS CcSSy 
FORZ=1TO055 

ACS 2=THT CRMC a eo54+49 


Lg WW eT Loto io i a 
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ela bat FMI Bo #4 S So 
SBC 20+38726 
IEPEEKCE(2) )=1 02 THENS669 


fo me Lt 
im 7 
4 


mowed oy 
‘me 
ri 
i 
Wot 
— 


d-dh mom mh 


{S=BTHEHHS= 1 


NOUGHTS AND 
CROSSES 


You are the red filled-in circles, the computer the inverse blue crosses. you just 
touch the number where you want to place a piece, and the VIC will do the rest. The 
computer will ignore any opening move which is not the centre square (5). This 
program is based on one written by Stuart Roberts. 


Wo Wo ao at a aoe kk wr 


1p) 
MoE) Ga & 


i = 


16 REM HOUGHTS AMD CROSSES 

12 REM 

3S REM AFTER PROGRAM BY STUART ROBERTS 
16 REM 


26 FORA=1TOS: BCAS=A: MEAT 
24 PRIMT" Oe" 
af E=@:i=@ 
6A H=8 
TA ASF 
@ PRIMT" siete" 
38 FORA=1TOS 
198 IFA=4THEMAS4+3° FRITS PRIWT 
116 IFBCA2=6THEHS23 
126 IFB«AS=18THENSSe 
130 PRIHTBCAS;" "3 
14@ HEAT 
145 epee earn bes ms aabinese = i6 eth BOTOLES 
146 [FBC?o=1GAHDB¢S>=1GAWDR¢ 99=18THEME=6 : GOTOLES 
15@ IFH=iTHEWSSa 


164 IFE=STHEMPRIHT: PRIHT:PRIHT" I WIM" :GoOTOFS 
iff IFR=STHEMPRIWT > PRIWT > PRIHT" IT’S A DRAW": GOTOrSe 


18@ PRIHT" SREY Oe MOVE?" 
165 GETAY: IFA=""THEMISS 

187 Z=VALCAS) 

196 IFBC29<>2THEHIS5 

2ha f=f+1 

210 IFZS11 THEME“! 35=18: GOTO6a 
228 H=1:BeC2>=8 

238 GOTOra 

248 FORA=CTOD 

258 IFBCAs=ATHEMHBCAs=18 

264 A=A+F 
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270 
288 
2398 
388 
3198 
328 
33a 
348 
358 
368 
378 
38a 
398 
4208 
414 
428 
436 


440. 


=) 7) 
465 
474 
458 
498 
pala 
318 
22 
38 
48 
patra] 
68 
ae 
pall 
Joe 
688 
618 
628 
628 
646 
654 
664 


NEXT 

GOTO6@ 
IFB¢S=STHENZO 
BC(Dd=148 

GOTN68 

PRIHT"S @ &"; 
PCA=1 

GOTO14 
PRINTS Sm fa"; 
PLA a4 

GOTO144a 

G=A 
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MUMUIMOAXOOooM 
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META 
IFE=3THEH72a8 
IFG=O@THEHRETURH 
IFE=3THEHZ44 
IFG=1 THEMRETURH 
IFE=2THEH24e 
IFG=2THEMHRETLURH 
IFE=STHEH24a@ 
IFG=3THEMRETURH 
IFE=10RE=4THEH29a 


A RETURH 
A PRIWHT: PRIHT:PRIMT" 


FORTS 1703868: MEXT 
FLIM 


VOW WI" 
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MASTERMIND 


The game Mastermind is copyright Invicta, who sell a number of versions of the 
gam which use coloured pegs. Invicta bought the rights to the game from an 
amateur mathematician, Mordechai Meirovich, in 1971, and a couple of years after 
they first marketed it, had a worldwide best selling game. 


The game has been known in England for centuries as Bulls and Cows. Another 
popular version is called Codebreaker. 


The principle is simple. The VIC 2@ picks a three-digit code (such as 259), using the 
number 1 to 9. Zero is not used, and no digit is used more than once in the code (so 
117, 494 or 666 are impossible). you have to guess the number in 18 guesses or less. 
The feedback from your VIC is fairly easy to interpret. After each guess you are told 
YOU SCORED 2 BLACKS and @ WHITES, In which a ‘black’ is a correct digit in the 
correct place in the three-digit code, and a white is a digit which does appear in the 
code, but not where you put it in your guess. The computer prints out the answer if 
you fail to get it within 10 guesses 


18 PRIMT SI" 

oh FORZ=1TO2 

40 AC2I=THTCRMD! 1 e341 

9 HEATS 

66 IFACLI=AC2 OR ACLISACSIOR ACSIsACS) THENS8 
re D=1BQRAL Lat BRR 2a tA So 

FORCHi TOG 

PRINT"GUESS ";C; 

[HPT 


G 
56) 

1G BeLieINTCx-108) 

1G CZ INTC ON 100#BC 199/18) 
120 BC3=M-1G0#BC 19-1OKEC2) 
128 IFD=% THEN366 

150 He@:H=8 

17G FOR E=1 TO 3 

186 IFACEI<DECE} THEN 216 

198 H=h+d 

208 ACEI=8 

216 HENTE 

226 FORF=1T03 
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238 IFACPIsK THEM Soe 

ata Fi E-1 To 3 

254 [FECFOCDACES THEM 27a 

264 b=b+1 

27@ NEMTE 

ese MESTF 

236 ACLI-THTcn- ee | 

S80 ACZI=THTCCD-1GG8At 123183 

S1@ ACS dHT-1LOeRAC i I-1oeAC 23 

226 PRINT SOL BSCoRED" 

Zen PRINT @" Hi "BLACKS &fi ibs (WHITES 
326 HENTC 

245 PRINT" ati HUMBER WAS" AC LARS ACES 
2568 EMD 

66 PRINT SCONGRATULAT LOWS” 

TeEPRIWT GROU GOT IT LH": 

SA END 


COLOURMIND 


This, as you've probably guessed, is a colour version of Mastermind. You have to 
guess the computer's pattern of four differently-coloured blobs. You indicate your 
choice of colours by pressing the colour keys on the VIC. 


The colours will first print up as the numbers you pressed, then changed into blobs 
coloured to your choice. Following the blobs will be your score, the first number 
being the correct colour in the correct position, the second the correct colour in the 
wrong position. You'll get ten tries to guess the numbers. Note that no colour is 
repeated within the set of blobs. 


If you’re used to playing Mastermind with coloured pegs, you'll quickly appreciate 
that this is much closer to the Invicta game than are computer versions which use 
numbers. At the end of a game, press any key to get a new game, or ‘S’ to stop. 
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SG) RETURN 
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mathe MEET 


rodeotel PRET LIP hs] 
Le FRAT Bt) GUESSED [TEs 


LE RR TAT MITE CCE MRS 3" 

LES PRT do TREO 

Leet eo eeeh TO STEP D 

LM30 FPRIMTMIDSCAE. CoZ odo eG 
Liebe) THE es 

LACIE GETS TE Rees TE ed eee 
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VICTIM 


This game is simplicity itself. You choose your ‘victim’, a number from one to six, 
and then sit back and watch the VICtim race get underway. 


Lines 15 and 55 are interesting. They allow the VIC to assign a different colour to 
each number, but the same colour to each number when it is printed. You’ll see 
what | mean when you run it. The sound routine, staring at line 1000, may well 
benefit from your programming skills. 


3 POKE36879.8 

16 REM YICTIM 

12 PRINT"?]" : PRINT: PRINT: PRINT: PRINT: PRINT: PRINT 
15 A$=" sips" 

26 PRINT " NAME YOUR VICTIM". ....5." 1 T7063"; 
38 INPUTH 

35 IFWC1ORWS6THEN3@ 

46 FORJ=1T06: BC J)=@:NEXT 

38 PRINT"T]":REM CLEAR SCREEH 

92 PRINT"S": REM HOME 

534 FORM=1T06 

35 C#=MIDSCA$.M, 1) 

68 PRINT TABCBCM)>;C$ = GM 

65 GOSUB1Ga0 

7@ PRINT 

88 BCM)=BCM)+INTCRND¢(1)+.5) 

96 IFBCM)>18THEN12@ 

186 NEXT 

118 GOTO52 

128 FORZ=MTO8 

13@ PRINT 

146 NEXT 

15@ PRINT" da END OF RACE x 

168 PRINT 

17@ PRINT" fSaTHE WINNER IS"M . 
186 IFW=MTHENPRINT"BAND YOU BACKED IT!!":PRINT"WELL DONE" 
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185 PRINT 

198 IFWC>MTHENPRINT" BUT YOU BACKED"W:PRINT:PRINT"S BAD LUCK" 
286 PRINT 

21@ FORJ=1T09@0 : NEXT 

220 PRINT" PRESS ANY KEY TO” 

230 PRINT" START" 

240 PRINT"S A NEW RACE" 

250 GETV$ 

268 IFY$=""THEN2ZS@ - 

278 RUN 

1806 POKE36878, 15 

1818 FORQ=1TO ACM? 

1026 POKE36876, 18G+INTCRND< 19%68> 
1838 HEXTQ 

1848 POKE36878. 8 

1878 RETURH 


MOTORCYCLE 
JUMP 


You are Evil K., world champion stunt rider, and your task in this graphic game on 
the VIC 20 is to jump over a number of red London buses. Each time you succeed, a 
new bus is added to the ones you must leap. 


When you run the program, you'll be told the angle of the ramp, and the number of 
buses you must jump. You enter the speed at which you wish to leave the ramp (we 
suggest you start off between 34 and 40 miles per hour) and you'll see, and hear, 
your motorbike spin up over the ramp, and — hopefully — over the buses. If you 
succeed, the ramp will be raised, and the number of buses will be increased. 


Because the angle of the ramp affects the distance you can clear, and because this 
program uses an approximation to genuine formulae to work out if you would clear 
the buses or note given a particular take-off speed on a ramp of that angle, you'll 
find your interest in this program will remain high, no matter how many times you 
play it. There is no way, for example, to know that if there are four buses, a speed of 

~ 42 mph will always clear them. It depends on the angle of the ramp. . 


lf you use too much acceleration, you'll flip upside down. Too little, and you'll crash. 


Far too little, and the program will tell you that you've ‘bingled’! If you manage to 
clear eleven buses, you'll be declared ‘The Champ’. 
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EM MOTORCYCLE JUMF 

OKE S6S7S. 24 
RIHT"o" : U=?7 

OSUBSHAS: REM VARIABLES 
QNSUBSAGE > REM DISPLAY 
GOSUBIBEG > REM CALCULATE 
AF="EIHGLED! ” 
IFABS“F-L325THEMHAS="CRASHED" 
IFF>=LAHDIFH<L+15 THEHMAS="SUCCESS" 
IFF>L+157HEMAS="LAHDED UPSIDE toy" 
U1: GOSUESEaE 
L=L+18@° HSH+IHTCRHDC 134341 3 
BSE+1: IFB=117THEHS690: PEM CHAMPIOM 
GOTOLAG 
REM SOUMD Fe 
PORESSS7 7 » 2201 
PORE SBSrS . Ke 
RETUFH 
POKES&S7 7. 2468 
FOKES6S? tg: La TRS 
RETURH 

PRIHT' SRAM 2M" DEGREES" 

PRIHT' THERE ARE" B" BUSES" 
PRIHT"ATHIS IS ATTEMFET"A 

THPLUT "SPEED" sv: LFV<=GTHEH1 eda 
FORE= 1 TOS@@ > HEYMT 

A=At+1 ESO Ve Sees “See 
F=CEeCOS CM) eC CEeSIMCH OSS. 25 PSABS CR 
RETF 

L=1O°H=25:B=1:A=1 

RETURH 

FRIMT " s€eteleleteqelateqe (eee ieee" 
FOR2=1TOE 

PRIHMT "fa al; 

HET > PRIHT 

IFU=? THEME: al IFb 

PORE? S44 . ‘PORESSE64 . 4 
FORK = ATOSG: GOSUES 1G: HET 
PORESSEG4, 1 
W=FPS21°M1=3e641 
FOR2=1TOR+4 

IF4# THT {2/4052 7THEMMSH-23 : ded -2 
POREW+2. Ler 

POKEM1+2.,4 

FORK=17T02Z: GOSUB3640: HEXT 
POKEMWL+2Z, 1 
FORK=17T018: HEXT 

HEATZ 
IFLEFT#¢ At, 19<>"S"THEH49ag 
FOR Z=B+47TOE+S 
WeW4+23:M1s14+23 
POKEW+2. 127 

FPOKEMI+2.4 

FORK =17TO20+2 

HEAT 


A POKEMWLI+2. 4 


HESTS 
POKESEEPE. & 
RETURH 


FORK=170260:POKES6E?S. IHTS 1S5*RH0C 1 +S+RH0E 1 ee GOSUBSSR : HEMT 
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S610 PRINT RROUH HO. WOU VeE" 

48260 PRIHT' "At 

sss POKESSSPr, 25a 

4925 FORT=17TO1L6G: POKES6Srs » RHIC 1oa1 541 

4836 HEMT 

435 POR ESESPS. 

Aheda G ITCAcde 

SAGE FORKS 1 TOS: SPOKES SPS. THT LE4RHD 12 4+S+RHO8 1 eas HEXT 
ABLE POKESESTS, 

SALE FORT= I Trse: HEY Alf 

al Pe eee eae" RE THE CHAMP! I" 

BEIAE EME TART WITH AROQUHD 34-48 

6616 FEM TOO LITTLE ACCELERATION AHD OW CRASH 
BASE FEM TOO MUCH AWD oll FLIF UPSIDE DOW 


NMIONZA 


Monza is a mind-reading mathematical wizard. You first think of anumber between 

-one and 63. Monza displays a series of numbers on the screen, and you press ‘Y’ if 
your number is among those displayed, ‘N’ if it is not. After a number of screenfulls 
of numbers have been shown, with suitably magical sounds, Monza will tell you the 
number you though of. This makes a good demonstration program to show the VIC 
off to your friends. 


19 REM MONZA, MATHEMATICAL WIZARD 
15 Bes" tee" 

20 ¥=, 5H=G 

30 POKES6S7S, 25 

4Q PRINT" CMTHINK OF A NUMBER” 

45 PRINT" BETWEEN 1 AND 63," 

SQ PRINT" SIMI WILL SHOW YO) FIVE" 
S55 PRINT"SCREEMFULLS OF" 

6@ PRINT "MUMBERS. IF YOUR” 

ES PRINT"MUMBER IS OM THE” 

74 PRIMT"SCREEM, PRESS “9¢ TO" 

60 PRINT"TELL ME. IF IT 18 NOT! 

1 e ices eo | SS a e 

68 PRINT’ WiLL TELE YON YOUR" 
65 PRINT'MUMBER AT THE ENT" 

100 PRINT SieDDOROBIFPRESS AY KEY..." 
11G GET AS: IF AS="" THEM 116 
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PR LMT" oe" 


PRINT"H#L S37 9 11 13 18 i7* 
PRIHT"MIS 21 23 25 ar 29 31" 
. PRIM" SSS S35 SP Sa 41 43 45" 
3 PRINT M4? 49 351 So 35 S? 59" 
PRIWHT TABCSI; "M61 63" 
FPRIMT 
GOSUE Soe 
PR Dh 7" cfeced"! 
PRIHT"2 36 7 16 11 14 15" 
PRINT: PRIHT"18 19 22 23 26 27 ae" 
PRIMT:PRIHT"S1 34 25 328 a9 42 43" 
PRIMT‘FPRIHT 46 47 S@ Si S54 55 Se 


PRIHTTABCS 3, "SS 62 63" 


4 PRINT 


GOSUB 39a 

PRIbMT " Ciecen" 

PRIHT"4 5 6 7 12 13 14 15" 
PRINT "Mea 21 22 23 28 29 34" 
PRIMT' M31 36 37 BE 39 44 45" 
PRIHT' MAG 47 52 53 54 55 6a" 
PRIMTTABCS 93 "M61 62 63" 
GOSUE 396 

PR IMT Crete" 

PRIHT"S 9 18 411 12 13 14 15" 
PRIHT Med 25 26 27 28 29 Sa" 
PRIHMT' Ml 46 41 42 43 44 45" 
PRIHT M46 47 56 57 Se 59 6a" 
PRIHTTABCE*; "ME1l 62 63" 


2 GOSUEB See 


RIAN PID 
iO RTO RAD PT 


PRIM T ' crete)" 
PRIHT"16 17 18 19 26 


21 ae” 
=— 


PRIMT "AEs 24 25 26 SF 2a 23" 
PRINT" sa 31 468 49 58 31 Sa" 
PRIHT SEs 54 S55 56 S? Se So" 
PRIHTTABCS: "MEG 61 62 63" 


GOSUE 396 
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S4e FRIMT " cyeqed” 
241 PRINT" 32 33 34 35 3 


6 a7 ge" 
242 PRINT'MBS 40 41 42 4 
5 


a 


re 
va" 
"W 


aa 
or 


242 PRIHT SHE 47 46 45 
244 PRIHT' GSS 34 S35 36 
245 FRIMTTABCG); "MEG 61 
200 GOSUB S36 

S6H FORE seers, 15 

erQ@ FOR T=17T0255 

268 PORE s6Sre.T 

296 POKE S667r6.255-Te 
SG MET 

21@ POKE 3éé 
sef POKE 3 = 
1) PRINT" sms ‘OUR @HUMBER BHAS" + 
346 FORT=1 704008: HEXT : RUM 

298 AR te 

220 CHeMIDS BS. CIMTCRMDC Lo #3 5415.15 
460 POKESES7&, 15 

410 FOR T=160 TO 255 

4260 POKE SéSre. T-H#s 

430 HMEXT T 
440 FOKE 3 
420 FOKE & 
4a PRIMT 
468 PRINT C#"IF ‘YOUR HUMBER Is" 
470 PRINT"HERE PRESS “Y", IF” 
486 FRIHT "HOT. PRESS “H’,." 

490 GET AF 

200 IF A=""" THEN 498 

~1@ IF ASle"H" THEM Heh+s 

220 FOR T=1 TO S@e 

230 MEAT T 

“48 RETURH 
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VIENTO 


Mento is another mathematical mind-reading wizard. Just get your friends to follow 
the instructions to be amazed, pressing any key after you have followed the wizard’s 


wise words. 
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TIME | 
GUARDIAN 


In this challenging game written by Adam Burbidge of Crawley you have to recover 
the six parts of the key of time. The ship starts with 700 energy points, and you lose 
five points for each move. 


When you first run it, you'll see the message | AM CREATING A GALAXY while the 
VIC sets up the universe for your game. After a brief delay, the screen will clear, and 
itis Decision Time. Every so often the VIC will ask you to set co-ordinates, and then it 
will print: 


QUADRANT? You enter a number from @ to 6 
SECTOR? You enter another number from @ to 6 
This is repeated. Then it will print: 

TIME? You enter either % or 1 


If you land on a hostile planet, the VIC will print SHIP UNDER ATTACK, then SHIP 
ENERGY. .. and a number. You need to press any key (which you may have to do 
several times rapidly) to escape from the hostile planet. 


From time to time you'll find part of the ‘key of Chronos’, the point of the whole 
game. You must find all six parts of it to win, and you must find them before your 
ship’s energy is exhausted. 


3 REM TIME GUARDIAN 

4 REM BY ADAM BURBIDGE 

3 DIMKA¢45,2$¢19,A266,6,6, 19 

6 Ka633=70G8:F=75 

16 PRINT"?]": REM CLEAR SCREEH 

20 PRINT" #al AM CREATING A GALAXY” 
34 B=INTCRND¢ 156) 

48 C=INTCRND(19#6) 

39 D=INTCRMDC 19465 

66 E=IHTCRND¢19#2) 

78 RA“*CBLC.D,Ed=2 

73 F=F-1:1FF¢@ THEN 85 

8@ GOTO34 

85 PRINT"T]":REM CLEAR SCREEN 

94 GH=INTCRND¢19#25+1 

104 PRINT" SOU START AT GLODHOB" 
185 PRINT 

114 PRINT" @QUADRANT 5" 

115 PRINT 

126 PRINT"@SECTOR 3.4" 


7\ 


125 PRINT 
138 PRINT" ST IME" GHRIG@B"EARTH ‘YEARS" 

135 PRINT 

148 PRINT"@SET CO-ORDINATES" 

156 INPUT"QUADRANT";>G 

16@ INPUT"SECTOR";H 

165 PRINT"R" 

17@ INPUT"SECTOR"; I 

186 INPUT"TIME"; J 

185 KA¢33=KAC3)-5 ; 

198 IFAACG.H.1,J3=1 THEN PRINT" &vOU ARE ON GLODNOB" :GOTO96 

200 IFARCG:H,1.J2>1 THEN 368 

218 PRINT"ADEEP SPACE" :GOTO146 

388 PRINT" @'YOU ARE ON A PLANET" 

316 PRINT" SsQUADRANT"G : 

328 PRINT" SECTOR"H, I 

329 PRINT" STIME" JRINTCRND¢ 1 #7) 

346 KACLO=INT CRNDC1)#20)+1 

358 IFK4(1)>5 THEN 376 

366 PRINT" SUN@INSHARBIMTED" :GOTO14G 

376 IFKAC19>10 THEN 490 

38@ PRINT"SINHABITANTS HOSTILE" :GOTO5aa 

406 PRINT" SEPART OF THE KEY OF". "M CHRONOS " 

418 KKC2>=K“(2) +1 

426 PRINT"YOU NOW HAVE"KZ62)"PARTS","OF THE sMKEY" 

436 IFK462)=6 THEN PRINT" MYOU HAVE WON!" : END 

446 GOTOI4a 

386 GET 2¢¢1) 

S19 IF 2$¢1)=""THENS4@ 

924 GOTO14a 

546 PRINT" M@@SHIP UNDER MATTACK! " oe 
S58 KAC32=KK(39-INTCRNDC1 RSG 41 

566 PRINT"@SHIP ENERGY: "KZ2 

S65 IFK%C39<1 THEN PRINT" SMSHIP MDESTROYED" : END 
378 FORT=1T0200:NEXT 
384 GOTOSea 
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SUPERBOWL 


The VIC sets up the pins for you in this simulation of a 10- -pin bowling alley, and then 
obligingly knocks them down, adding up your score as it goes. 


There are 10 frames to a game, two balls to a frame. As you'll play this game, you'll 
find that strikes are few and far between. There is a highest score routine (319to 330) 


which you may well want to adapt for other games you write. 


FRAME 4 BALE 


5S REM SUPERBOWL 

26 Y=6:S=9 

34 PRINT"O": REM CLEAR 

46 FORB=1T018 

58 GOSUBS88 

66 FORE=1T02:PRINT: PRINT: PRINT 

65 PRINT" #8": REM HOME 

78 PRINT" "FRAME" B"SBALL"E 

73 PRINT: FORT=1T0500: HEXT 

88 Z=8 

98 FORC=1T016 

106 IFE=Z2THENI28 

118 ACC=79 

120 IF RHD¢1558.5 THEN ACC3=45 

136 IF ACC=45 THEN Z=Z+1 

144 MEXTC 

145 PRINT: PRINT: PRINT 

15@ PRIWT. "@"CHRS(AC1055" "“CHRECAC999" "CHRECACBI9" "CHRECAC TD) 
155 PRINT :GOSUB78@ 

16@ PRINT," "CHR#CAC6)9" "CHRECACS) 9" "CHRECAC4)) 
165 PRINT: GOSUB7@8 

174 PRINT." "CHRE(AC3S39" "CHRECACZ)9 
175 PRINT: GOSUB788 
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18@ PRINT," — "CHRECACL 99 

190 PRINT 

200 PRINT" ‘48SCORE THIS FRAME"Z" 
215 PRINT 

22@ IFE=1 ANDZ=10 THEN 370 

238 IFZ=10 THEN 2=15:PRINT, "M@SBONUS! |" 
24Q IFE=2 THEN S=S+Z 

250 IFE=2 AND BC>1@ THEN PRINT" ‘SCORE SO FAR IS"S 
268 FORT=1T0100@:NEXT 

278 PRINT 

280 NEXTE 

290 HEYTB 

308 PRINT"SSCORE FOR THAT GAME WASH"S” 
31@ IFS<¥ THEN 330 

228 = 

33@ PRINT"  SHIGHEST $0 FAR"Y 

348 FORT=1T09000:NEXT 

358 $= 

268 GOTO 

378 PRINT 

388 PRINT, "M88TRIKE!!" 

385 PRINT 

398 FORT=1T01000:NEXT 

410 S=S+15 

428 E=2 

449 GOTO23a 

5@Q FORD=1T019:A(D)=79: NEXT 

585 GOSUBZ2aa0 

51@ PRINT "a" 

520 PRINT "  MFRAME : 
520 PRINT: PRINT 

54@ PRINT: PRINT 

55@ PRINT, "#"CHRECRC1Q)9" "CHRECACSI9" "CHRECRCBII" "CHRECACTDD 
555 PRINT 

S6@ PRINT," "CHR$CAC6))" "CHRECACSI9" "CHRECAC4)) 
S65 PRINT 

S7@ PRINT:" "CHRECAC399" "CHRECAC29) 
575 PRINT 

S@G PRINT," "CHRECACL9) 

585 FORJ=1T05: PRINT" "NEXT 
590 FORT=1T01000:NEXT 

GBG RETURN 

7@9 REM DELAY. SOUND 

710 POKE36878: 15 

720 FORU=249T0239STEP-2 

734 POKE36876, U 

750 FORU=238T0249 

768 POKE26876,U 

778 NEXT 

78@ POKE36876,0 

808 POKE26878. 6 

818 FORT=1T05@: NEXT 

820 RETURN 

2080 REM SET UP SOUND 

2018 POKE36872, 10 

2020 FORK=248T0148 STEP-2 

2025 POKE26879. 26+ INTCRNDC 1946) 

2030 POKE36876, K 

2046 POKE36875:. K 

2050 NEXT 

2055 POKE36878,0 

2060 RETURN 
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GOMOKU 


In this game, you and the VIC take it in turns to place your pieces (‘H’ for you, ‘C’ for 
the computer) on an eight by eight board, trying to get five pieces in a row. The 
computer plays anextremely good game, so good that it was necessary to cheat 
when we were developing this program in order to win to check that the YOU WIN 
routine was working correctly. 


You have the choice of first or second move, and you enter your move by indicating 
the number along the side, then across the top. 


As you can see, the program cycles through a loop (lines 60 to 100) over and over 
again, calling up various subroutines to do the needed tasks. The board is printed by 
lines 230 to 320, and you may well want to modify this to print different symbols for 
the pieces, or use the same symbols as in the program, but with different colours. 


The game can end in three ways. You defeat the computer (line 640), the computer 
defeats you (line 1140) or the computer concedes defeat (which it will only do after 
having chosen 400 squares at random, see lines 950 to 975). This program is based 
on one written by Graham Charlton. 


Tm 


REM GoMmMoku 

REM BASED OFF PROGRAM EY GRAHAM CHARLTOH 
GOSUBIAS& 

GBOSUBS3A 

BOSVER+SE 

GOSURS SA 

BOSUBS48 

BOSWEBSSE 
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mo 


mt 
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et 
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at 
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GOTOERA 

E=Fl 

E=E+hH: [FASE 22 THEHRE TURH 
ESE+1:° G07TO145 

FRIHT " Sielelete(ob ies L2s45e 7a" 
FORA=1 705: PRIHT "BES" 
FORE=27T0S > MSACAeLE+8 2 
TFMN=CTHEHFPR INT " Sac" 5 
TFM=SHTHEMPR IMT ! SEH" | 
ITFMR4t6THEMPRILHMT "Bi. 's 
HEAT? PRIWT SA HEST 

FRIWT "Shih id 1234587 Slee" 
RETURH 

THPUTG: G=G4+1° TFG 1 S0R G2 S90RAC GI Soda THEnsSe 
2H: ACGI=2: RETURH 

ASG S68 PORE =1 Tod: K=B Se 
GOSUELAA 

Heo: GOSUBLde 

TFESLTHEHLEE 

HET 
LTFLSS7HEMPRIMT " Steelelelateleeleleteieleieeteteetr ol Wh" GoTo 
T=i 

TFTASeTHEHS=C 

IF T=27HEHE=14 
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a 


G=8:H1=8:L=F1 
FORA=1ETOSS : N=: [FACA So 46 THEM Sa 
SHEE GOSUBL 4a 


A A 
ee, El 
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{ 7 
=e tae 
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- Hl 
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ee 
I 4 ff 
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= 
_ 
if 


mi 
eI 
nS. 
<3 
IF 
+ 
oi 
iT} 
rl 
8 
= 
i 
Ci 


a 


mim 
1 


IFLe SE THEHS68 
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S28 IF T=1AHDL<40R¢ T=20RT=3 2 AND <2 THEMES 
SS =f 1 


HEAT 

IF M=H1 THEHSeAa 
H1i=h: G=Fl 
HEXT 

IFH1 <2 8@THEM See 
T=T+1: TFTaS4THEHEEE 

A=1 

G=LTHT RMICe err a+1 3 

IFACG3=46THEMHSS8 

A=A+1 : TFAC4+6@THEMS Se 
PRIM" S¥ae0ee(eleleeceleletedereteieteil OMCEDE' : GOTOSPS 
AnG2=0: RETURH 

asl: ASG: L=6 

FORAS1 704: K=8 > H=e0s3 

GOSUE 1 46 

H=—H: GOSUEL 46 

IFESL.THEHLSK 

HEAT 

IFLOSTHEHMPE THT " Sinleleteleteelele(aieledelatetereryt Wi": GOTOL146 
1i36 RETURH 

1186 PRINTS" 

12h DIMA Tae 

1216 FORA=1 TOS: FORB=27T09 > ACA#LE+Bo=46:°HEATE: Al 
1268 FORG=1 704+: READS CoS ¢ MEST 

1298 DATAL: 3.18.11 

1386 H=ASCO"H" 3 CeASCC Uy 

1346 PRINT" SeiEHTER “'r< IF YOU WAHT THE FIRST Move. “Me iF YOu DON’T" 
1358 GETF#: [FFEIS"H"AWDP ESS" THEM S58 

i386 PRINT (PORES6S 7S. 255 
1398 TFF#="Y" THEMRETURH 

1486 FORIJ=1 TOIT ORMDC ao ei so+1 = 
idle READS: HEXT 
1448 AC Ss=C: RETURH 


14568 DATAS4. 35.36.44. 46.47. 54. 55,56, 57. 66 
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FAIRWAY 


In this game, you are on a nine hole golf course. The length of each hole varies each 
time you play the game. The program makes much use of POKEing to create the 
green, and move the ball. The sound the ball makes is particularly interesting if you 
overshoot the hole. 


1@ REM FAIRWAY 

3 POKE36879, 28 

269 SC=@8°REM SCORE 

38 Av=6°REM AVERAGE 

108 FORA=1T03:REM HO. GF HOLES 

165 T=6:REMTALLY THIS HOLE 

118 D=INTCRHDC15#794+14°REM DISTANCE TO HOLE 
120 PRINT"T)": REM CLEAR SCREEH 

125 C=8 

136 M=6 

4896 GOSUBE88G 

586 GOSUBS@S8 

918 IFM<>D THEM 596 

S208 IFABS¢M-Ds<2 THEH 2@a6 

925 IFM>21 M=21 

528 GOTOSe8a 

548 END 

5886 PRINT "S%SHOLE HUMBER"A 

SOAS PRINT. DRIG" YARDS" 

S81@ PRINT 

s@izZ PRINT’ SSCORE"SC"§TALLY"T 

3415 IFD=M THEN sage 

58926 PRINT"MDISTANCE FROM HOLE:" 

s825 IF D-M=>10 THEN PRINT" 4"¢D-Moex1@"YARDS " 
sa2é IF D-M¢ 1@ THEN PRINT” "“<D-Mo#1B"YARDS " 
s838 PRIHT"" 


i7 


A IHPUT"WHICH CLUB"; 0 


3842 T-T+i 

ah44 GOSUEB7 S68 

S845 POKES@7 20+. 1 
2845 IFMSD THENC=-C 
HEB M= THT CM+CSRRHDC 141 35 
S665 C=6 

aa7@ POKEQBLA+M. SI 
SORA POKESEPSO+M, 2 
898 RETURN 

5999 END 

6a@6 REM DRA GREEN 


8938 
3880 


FORD=S832T08113 
POKE®. 142 


1 POKEG+38752-8632,5 


NEXT Q 

POKESA32+D, ¢4:POKES@23+1. 55 
POKEZS752+D, 2: POKES2°33+D.2 
POKESS1@+M. 21 

POQKESEP 304+. 2 

RETURH 

FORM=129TO1S6+34M 
POKE26973, 15 

POKE26875. b 

POKE36974. bi 

HEMT 


RETURH 

T=T-1 

POKE3687&, 228 
FORP=1T05:HEXT 
POKE26876, 0: POKEZ6876, 225: POFKESESTE. 3 
PRINT"YOU GOT IT IN"T 
POKES@1O+I1, 1 

POKES@32+M, 21 

POKE387 7444.2 
POKES@2 2+, 1H2 

POKES8 PP S+i1, 5 

SC=SC+T 
PRIHT"@AERAGE” THT’ SC/A+. 5) 
FORH= 1 T05888 : HEMT 

HEATA 

EHD 
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ROBOT NIM 


The VIC prints a number of odd triangle shapes, tells you how many you can take, 
then takes a few of the shapes itself. This fascinating process continues until there is 
only one left. At this point the player who must take the last one loses. 


Structure of the program 

Line 20: Determines the number of objects. 

Line 58: Determines maximum number to be taken. 

Lines 109 to 130: Print out the correct number of triangles, starting new lines at random (see 
line 120). 

Lines 219 and 215: Determine how many the ‘robot’ will take. The random bit at the end of 
line 218 ensures that the robot makes mistakes from time to time. Line 215 ensures that 
the mistake is not so large that the robot breaks the rules. 

Lines 280 to 299: Place a coloured border between rounds of the game. Design this to suit 
yourself. 


18 REM ROBOT NIM 

26 M=6:E=G:2=16+INTCRNDC 19 #8) 

34 PRINT"T)": REM CLEAR SCREEN 

49 IF2kINTC2/29=Z THENZ=Z+1 

39 H=3+INTCRND¢15#2) 

66 PRINT" MAXIMUM TO TAKE"H 

76 GOSUB23¢ 

8@ IF E>@ THEN PRINT"&YOU TOOK"E,"@RGBOT TOOK"® 

96 PRINT" Gi" 

140 PRINT"@" :FORK=1T02 

116 PRINTK; "FR"; 

128 IF RND€1)>@.6 THEN PRINT 

136 HEATK 

148 GOSUB288 

145 PRINT" @HOW MANY WILL". "YOU TAKE"; 

156 INPUTE 

166 IF E>H THEN 1506 

176 Z=2-E 

186 GOSURZ8@ ; 

196 IF 2<1 THEN PRINT"@YOU TOOK THE LAST ONE", "4 SO ROBOT WINS!! “:END 
21@ Q=Z-1-INT¢ (2-1) 7CH+1 9 #CH+1 INT CRNDC19#2)+INTCRNDS 1 #29 
215 IF Q¢1 OR Q>H THEN 218 

228 GOSUB288 

230 Z2=Z-Q 

24@ IFZ=@ THEN PRINT"KROBOT TOOK‘a"Q,,,"mSO YOU MSHIH!!":END 
274 GOTO6S 

288 PRINT 

QOS PR IMT " CH Hh tHE SE SO HE OR Ha HH" 

29@ RETURN 
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ZAUPER 
ATTACK 


In this program, by Christopher Hutber of Milton Keynes you must zap the Klingons 
before they are eaten by the Zaupers. you need to take care because these creatures 
may also eat you. “Z”” moves your gun left, and “C” moves it right. “’X”’ will fire your 
gun. Full instructions are within the program. 


PR THT Uy: 

PEMAPVARLE PROGRAMME DY suPTS 
CEM o~OR ION F HRP TSTOPHER HUTBER AGED 12 
BOSUB 70a 

Ti=TI 

SC=0 

1@ PRINT"Z)" 

12 PRINT OOOO" 

13 REM DRAW KLINGONS 

15 POKE 36879,8 

28 FOR 1=38498 TO 38531 

3@ POKE I,1 

48 NEXT I 

5@ FOR H=768@ TO 7767STEF 3 
66 PUKE H,S81 

76 NEXT H 

38 REM DRAW GUM 

189 T=7955 

11@ FOR R=386647038664+21 
112 POKE R,7 

114 HEXT R 

12@ POKE T,65 

130 IF $C=3Q THEN 1020 

135 REM GET INSTRUCTION 

140 GET AS‘IF AS=""THEN 3000 
170 IF AS="X"THEN4SQG 

190 IF A$="C"THENSOO 

198 IF A$="Z"THENZOO 

192 IF A$="%"THEN 5000 

195 GOTO 146 

197 REM MOVE GUN 

200 FOR B=7944T07965 

21@ POKE B,70 

220 NEXT B 

230 T=T-1:GOTO 120 

300 FOR B=7944T07965 

31@ POKEB, 70 

320 NEXTB 

338 TsT+1:GOTO 120 

399 REM FIRE 

4@@ FORF@TT07680+(1-7944)STEP~22 
418 POKEF,46 

412 FOR Wei TO2S‘NEXTW 

414 POKE F,d2 

420 IF PEEK(F-22)8G1THEN GOTO 480 
430 NEXTF 


AD em gy 


Ww oO Ww 
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455 POKE F+22,96 

460 FOR 1@1T050‘NEXTI 

470 POKE F,87 

472 FOR G=7680+(T-7944)TOT-228TEP22 
474 POKE 6,96 

488 POKEF-22,32 


482 IF PEEKCFCOGIANDFC?702THEN GOTO 680 


488 POKE 36877,220 

490 La? 

500 POKE 36876,L 

318 FOR M=iTO 2a 

520 NEXT M 

548 POKE 36876,0 

550 POKE 36878,0 

33S 8Ce8C+1 

S60 PRINT" @SCORE:";8Ci"")":GOTO 128 
600 PRINT" @BCORE:";SCi "1" ‘GOTO 128 
1000 PRINT".2" 

1885 T2eT! 

1018 POKE 36879,30 

1020 PRINT"M@WELL DONE" 
1030 PRINT"YOU WIPED OFF THE 
1031 POKE 36678,15 

1032 FOR L=i TO 100 

1033 POKE 36676, INTCRND¢12128)+128 
1034 FOR M=1 TO 18 

1035 NEXT M 

1036 NEXT L 

1037 POKE 36876.0 

1038 POKE 36878,0 

1048 PRINT‘PRINT 

105@ PRINT"PLAY AGAIN 7?" 

1855 PRINT‘PRINT 

186@ GETS$ 

1670 IF S$=""THEN18@62 

1@80 IF S$e"Y"THEN 8 

1090 IF S$8"N"THEN1200 

1188 GOTO 1868 

1280 PRINTTABC7);"BYE BYE" 

1205 PRINT 

1210 PRINT" THANKS FOR PLAYING" 
1300 END 

2999 REM ACTIVATE ZAUPERS 

9008 FORE=1T01@:ReINTCRNDC1)K75)+7689 
3018 IF R>7767 THEN 3000 

3828 Q2INTCRND¢ 1)#20)+7944 

3050 Dad. 5+RNDC1) 

3060 IF DC1THEN Y=21 

3070 IF D>ITHEN Va23 

3188 FOR 2=RTOQSTEPY 

3118 POKE 2,61 

3128 POKE 2-V,932 

3138 FOR ¥#1T025:NEXTX 

3150 IF AS="e" THEN 5150 

3208 GET AS'IF ASC>""THEN 178 
3300 NEXT Z 

3400 IF Z@=TTHEN 4808 

3588 GOTO 178 

4008 PRINT" SJWZAUPERS HAVE WON " 
4850 PRINT 

4106 PRINT"MOON BASE DESTROYED! " 
4150 REM EXPLOSION 

4200 POKE 36877,220 


8I 


KLINGONS IN ";INTC<T2-T1)76@);" SECONDS!" 


- 


Le heal Pond Ja 
(1 fat 


i at 


4230 FOR L=15TO@STEP-1 

4258 POKE 36876,L 

4270 FOR M=1T0300 

4298 NEXT M 

4300 NEXT L 

4320 POKE 36877,0 

4338 POKE 36878,0 

4500 GOTO 1249 

5808 SCaSC-5 

31@@ PRINTSC; "7" 

5200 FOR K#1TO 5Q@:NEXT K 

5380 GOTO 18 

7000 PRINTTABC3) ; "Ol mmm, ' 
7810 PRINT TABC3);"§ZAUPER ATTACK! sa" 
7028 PRINTTABC3) ; "ll BY a" 
7030 PRINTTAB(3);"IC.R.J. HUTBER s@" 
7048 PRINTTABC3) ; " Ol “Whmmmmmmmmmeeen ff |! 
7868 PRINT: PRINT 

7188 PRINT" INTRUCTIONS ¢Y OR ND?" 
7120 GET M$: IF M$=""THEN 7120 

7138 IF M$="N"THEN RETURN 

7140 IF M$="Y"THEN 7500 

7158 GOTO 7120 

7588 PRINT"YES" 

7318 PRINT 

79520 PRINT"“KLINGON ATTACK’ IS A GAME OF SPEED," 


7538 PRINT:PRINT"THE CBJECT IS TO KILL ALL THE KLINGONS IN 
POSSIBLE." 


7548 PRINT ‘PRINT 

755@ PRINT"HIT A KEY" 

7560 GET N$:IF NS=""THEN 7560 
760@ PRINT "2" 

7619 POKE 36879,6 

7620 PRINT"S = KEY" 

7632 PRINT" ae. 

7640 PRINT: PRINT 

7650 PRINT" @ -KLINGON" 

7655 PRINT 

7660 PRINT" = =ZAUPER" 

7665 PRINT 

767 PRINT" # ~YOUR GUN" 
7672 PRINT :PRINT:PRINT 

7675 PRINT"HIT A KEY" 

7680 GET O$:IF O$=""THEN 7680 
7700 PRINT":3" - 

718 POKE 36879, ; 
$720 PRINT"@THE ZAUPERS EAT THE KLINGONS AND WILL 
27730 PRINT"CRASH INTO YOU GIVEN HALF A CHANCE. 

7735 GOSUB 5200 
7740 PRINT: PRI | 
7750 PRINT"TO MOVE YOUR GUN PRESS" 
7768 PRINT:PRINT"“2/-MOVES IT LEFT" 
777 PRINT:PRINT"“C’-MOVES IT RIGHT 
7802 PRINT: PRINT 
7810 PRINT"TO FIRE GUN PRESS: “X’" 
7820 PRINT : PRINT 
7830 PRINT"H u 
7842 GET V$:IF V$=""THEN 7840 
PRINT" <1" 
900 PRINT"WHEN ALL THE KLINGONS ON THE SCREEN HAVE 
NT"GONE. PRESS: “m/" | 
7920 BRINT*THIS WILL TAKE YOU BACK TO THE START AND" 
7930 PRINT"TAKE AMAY FIVE POINTS" 
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AS QUICK TIME AS 


7930 PRINT: PRINT 

8808 PRINT"HIT A KEY TO START" 

8010 GET X$: IF X$=""THEN 612 

8828 RETURN 

9888 PRINT:PRINT 

9818 PRINT"THE ZAUPERS ARE HIGHLYSENSITIVE TO THE HEAT " 
9828 PRINT"GIVEN OFF BY YOUR MOVEMENT AND FIRING," 
9838 PRINT"THUS WHEN YOU DO SO," 

9648 PRINT"THEY ARE PARALYSED! " 

9045 PRINT:PRINT"HIT A KEY" 

9850 GET Y$:IF Y$=""THEN 9050 

9868 PRINT"*)" 

9078 RETURN 


VIC-ET-UN 


In this program you and the VIC (with thunderstorms, lighting bolts and other 
distractons) take it in turns to roll a dice trying to get a total as close as possible to — 
or equal to — 21, without going over 21. This game is a dice version of Blackjack. 


It is very simple to play. After pressing RUN, you'll be told to touch the “Z” key to roll 
the dice, the ““M” key to stand, that is, to stay with the total you now have. Your total 
will apear, and the choice to roll or stand again. Once you've decided to stand, the 
VIC will start to roll, and will — in two games out of three, on average — beat you. 


Structure of the program 

Line 10: Sets the counters for the human (H) and computer (C) scores. 

Line 20: Sends action to the wild and crazy subroutine which selects colours. and sounds 
randomly. 

Lines 30 to 80: Accepts and acts on the player’s decisions. 

Lines 99 to 130: Computer decides whether to add to its total or stand. 

Lines 149 to 258: Decides who has won, creates some more mayhem, starts a new game. 

Line 269: Delay loop, called various times during the program. 

Line 998: Assigns A$. 

Lines from 1980: Selects an element from A$ to change the colour, then does some quite 
exciting things with the colour and sound. 


2 REM VIC-ET-UN 

¢ PRIHT"<J": REM CLEAR SCREEH 

19 H=4:C=6 

28 GOSUBS9@ 

34 PRINTB#;" ENTER Z TO ROLL" :GOSUB1@96:PRINTBS; " M TO STANB" 
33 GETM$: IFM$=""THENSS 

48 IFMS="M"THENSG 

JQ H=H+IHNTCRND<19#6)+1 

68 GOSUBZ6G@ : GOSUB19aa 

7@ PRINT:PRINTB$;" ‘YOUR TOTAL IS"H 

75 GOSUB266 : GOSUB266 : PRINT 

89 GOTO38 

9@ IFCSH AND C<22 OR C>21 OR H>21 ORH=21 ANDC=21THEN 140 
168 C=C+INTCRHD<1>*6)+1 

118 GOSUB266 
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115 PRINT: PRINT 

128 GOSUB1Q@0:PRINTB$;" MY TOTAL IS"C 
130 GOTO9@ 

148 GOSUB1@00:PRINTBS; 

150 GOSUB26Q : GOSUB100@ : GOSUB260 

178 IFH=CORCH>21ANDC>21 >) THEN240 

175 PRINT:PRINT:PRINTB$; 

188 IF¢(C>H ORH>21>ANDC<22 THENPRINT, "I", 
196 IFCCCHORC21 )RNDH<22THENPRINT, "VOU"; 
260 GOSUB1G@G:PRINTB$;" WIN! !" 

216 GOSUB260 

220 GOSUB1GG0 

225 FORJ=1T07 :GOSUB260 : NEXT 

226 GOSUB1GGG 

230 PRINT"T]" : RUN 

248 GOSUB1@0@0:PRINTB$: "DEAD HEAT, BUDDY!" 
258 GOT0225 

266 FORE=1T050@: NEXT 

278 RETURN 

998 A$="T ae" 

1000 BS=MID$CA$, CINTCRNDC19#7 +19. 15 
161@ FORJ=1TOINTCRND(1)#10)+1 

1026 POKE36878. INTCRND‘19#189+6 

1034 FORK=1TOINTCRND¢ 1 #7 9+2 

1846 POKE36876, K+18@-INTCRND¢ 1 #38) 
1858 NEXTK,J 

167@ POKE36879, INTCRND¢ 1 9#39+28 : POKE36879,8 
1875 POKE36879, INTCRND(19%3)+28 

1486 POKE36879, INTCRND¢19#39+28 

109@ POKE36878.,6 

1166 RETURN 


EVOLUTION 


In 1970, John Conway, who was then attending Cambridge University, invented the 
game of LIFE, which rapidly became a computer ‘hit’ after it was described in the 
October 1970 issue of Scientific American. 


LIFE, which simulates the birth, growth and death of a cell colony, produces rather 
splendid visual effects. 


Mr Conway’s rules are simple, but produce unpredictably interesting results. The 
cells in LIFE are born, live or die in accord with the dictates laid down by the God 
Conway. According to his writ, each cell has eight neighbours; every cell with two 
or three neighbours survives to the next generation; if there are three, and only 
three, neighbouring cells, a new cell is born; and any cell with four or more 
neighbours dies from overpopulation. 


EVOLUTION is a version of LIFE written especially for the VIC. Setting up a black 
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screen with a red border, the program puts cells ona14x14gridinaccord with 
the Conway rules. The game as listed is silent, but if you'd like to add a little sound — 
which tells you how things are going in the program — add the following lines: 


6 POKE 36878,7 
225 POKE 36876,240:POKE 36876,0 
1875 POKE 36876,235:POKE 36876,0 


ra 


3 REM EVOLUTION 

y PRIMT"C]" > REM CLEAR SCREEH 
PRIHT" fa" 

POKE 36@73,18°REM RED BORDER. BLACK SCREEN 
H DIMAS 14.149, 8014, 149 

9 FORH=2 TO is 

26 FORY=2 TO 13 

3@ IF PNDCL3268.5 THEH ACH Yo=1 
6B BOM, VISACK PD 

7@ HEMT? 

C0 NEMT# 

98 GOSUBR1IAGO 

95 G=6+1 

106 FORM=2TO13 

110 FORY=2T012 

12@ C-6 

126 IF AC¢w-1.%-1)=1 THEN C=C+1 
146 IF ACw-1.9=1 THEM C=Cti 
190 IFACM-1.%+19=1 THEN C=C+1 
160 IFACM.Y-15=1 THEM C=C+1 
176 IFACH,7+19=1 THEN C=C+1 
196 IFACM+1.7-13=1 THEN C=C+1 
198 IFACH+1,'73=1 THEM C=C+1 
204 IFACK+L.Y+i9=1 THEN C=C+1 
216 IFACé,73=1 AND C<>2 AND Ce>3 THEN Pte, 79=a 

2eQ IF Ats.>=G AND C=3 THEM Bex, Yor] 

206 HEMTY 

248 HEMT 

6 GOATORA 

S EHD 

BQ PRINTS": REM HOME 

Q@G2 PRIHT:PRINT® SEVOLUTIOH 22"5G; "fi": REM WHITE, YELLOW 
1865 PRINT 

181@ FORM=1TO14 

1626 FOR'=1T014 

1438 ACK. YI=BCM, Yo 

1046 IFACM.7)=1 THEN PRINT"#"; 

1950 IFACM.'9=@ THEN PRINT" "; 

1666 HESMTY 

1876 PRINT 

188A HERTS 

1A9H RETURH 


J 


fe WO Om 
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SUPERPOET 


The VIC turns into Wordsworth, cranking out some splendid poems, and a few 
which are not so brilliant. Once you've seen it in action, change the words in the 
subroutines 180 to 279 to suit your own taste. Note the use of ON. ..GOSUB in line 
40. 


3 REM SUPERPOET 

18 PRINT"*)":REM CLEAR SCREEN 

15 IF RND¢19>8.3 THEN 30 

28 FORJ=1TORND¢ 1 #2: PRINT > NEXT 

36 FORJ=1TO RNDCL9#S+1:PRINT” "> = HEXT 

35 J=INTCRND( 19#1d>+1 

49 OH J GOSUB 100,119:128, 130,140,150, 160,170, 190,194.298, 216,220,230, 240,258,26 
8,278 

5@ FORP=1T0 RND¢ 1 9#2088 > HEMT 
78 GOTOLS 

166 PRINT" @DETACHED": ‘RETURN 
116 PRINT" UHAWARE"> ‘RETURN 
12@ PRINT" MJNABLE": > RETURH 
126 PRINT" @INITIATE": :RETURN 
14G PRIHT"§REACHED OUT FOR": -RETURH 
156 PRINT"SAYOIDS"; :RETURH 
168 PRINT" HSUFFERS": :RETURH 
178 PRINT" @CAPACITY"> > RETURN 
180 PRINT"SPIRITUAL"; ‘RETURN 
19@ PRINT"BALTHOUGH" ; : RETURN 
26@ PRINT" @DISCIPLE"; ‘RETURN 
216 PRIHT"GHE"; :RETURH 

226 PRINT"AND": ‘RETURN 

236 PRINT" @THEN"; :RETURH 

246 PRINT" HMASTER”; :RETURH 
258 PRINT"MAFTER": : RETURN 

268 PRIMT" LONELY"; >: RETURH 
276 PRINT"GHIS": ‘RETURN 


AND THEN 
UNAWARE 
UNABLE 
ALTHOUGH 
AND MASTER 
REACHED OUT FOR 
UNABLE 


MASTER RETURNED 
UNABLE 
CAPACITY SPIRITUAL 
DISCIPLE HE 
LONELY HE 


AVOIDS LONELY MASTER 


86 


SYMPHONY FOR A 


MELANCHOLY 
COMPUTER 


This, the title piece of our book, reflects an effort to write a program which would 
‘write music’ that had some underlying form. The title is obvious and appropriate, 
once you've heard the computer's output from this program. 


The main structure of the music comes from the variables A, B, C, D, E and F which 
are defined on each run. The program is designed so that the chords change with 
reference to a measure (E) and so that the changes overlap each other, thus getting 


rid of harsh stops and starts. 


SYMPHOH' FOR 
REM A MELAHCHOLY 
& REM COMPUTER 
GOSUBL GE 

A=12S8+INTCRHDS Loaleds 
BriSe+ INT RH 1 #123) 
Ca126+INTCRMD(1 #1252 
D=128+ THT CRMD¢ 1 #128) 
E=TMTCRNDS 1984541 

Fk 
FOKE3687S.F~1 
FORH=1TOS#E 
4 POKESES74. A 


RE 


HE TH 
FORH=1TO3#E 
POKESG87 5.8 
HE™TH 


4 FORH=1T0S#E 
1 PORERSE876.0 


HE“ TH 
FORH=1TOS#E 
FOKES68F 7, 
NEXTH 
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@1& FORH=1TO2#E 

e228 POKESG874.A 

230 MEXTH 

2468 FORH=1TOS#E 

250 POKES6S76,0C 

264 HEXTH 

J@6 RUN 

{B66 PRIHT"T]" REM CLEAR 

1816 POKES6E79. 16#¢ THT CRHDC 198169940 THT CRHDE LB 3 48 
laa RETURH 


Symphony fora Melancholy 
Computer with Zen Show 


This is the same program as just listed, with an underplayed visual display added. 


16 REM S'/MPHONY FOR 

15 REM R MELANCHOLY 

16 REM COMPUTER 

17? REM WITH ZEN SHOW 

18 GOSURI98G 

26 A=128+INTCRND¢1>#122) 
36 B=128+INT<RND‘(15%128) 
46 C=128+INTCRND(1)*123) 
3@ D=128+INTCRND< 19#128) 
6@ E=IHTCRND¢1)#2)+1 

7@ F=2#E 

3 POKE36878,F-1 

36 FORH=1TOS#E 

196 POKE36874,A 

11@ NEXTH 

120 FORH=1TOS#E 

136 POKE36875,8B 

148 NEXTH 

15@ FORH=1TOS#E 

168 POKE36876,C 


17@ NEXTH 

co ee ae 1865 FORJ=1TORND¢1)#2G:PRINT" "3 :NEXT 

200 HEXTH 187@ PRINT CHR$¢119+INT<PND<19#15)) 
1075 FORJ=1TORND(1)#20:PRIHT" "3 :NEXT 

> ={T02 1828 PRINT CHR$(119+INT(RND(19¥15)) 

ate Fun silacese 1025 FORJ=1TORND<1)#2@:PRINT" "; :NEXT 

228 POKE3E874 A 1098 PRINT CHR$(119+INTCRND(19#15)) 

238 NEXTH 1895 FORJ=1TORND¢12#2@:PRINT" "; :HEMT 

240 FORH=1TOSME 1188 PRINT CHRE(119+INTCRHD(1)%#15)) 

258 POKE36876,C 1118 RETURH 

268 NEXTH 

5@0 RUN 


1688 PRINT"<)":REM CLEAR 

1818 POKE36879, 16#¢ INTCRNDS 1 416) )+CINTCRNDC194B)) +8 
1862@ FORJ=1T05 

1638 PRINT 

1840 NEXT 


1058 PRINT" SS'/MPHONY FOR A MELANCHOLY COMPUTER” 
1668 PRINT 
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VIC CHECKERS 


The VIC puts up a challenging defence in this game of checkers, or draughts. The 
game follows all the traditional rules, except that there; is no huffing (penalty for 
non-capture). Despite this, the VIC will always capture when it can. 


The VIC is the solid red circles playing down the board, and you are the open circles 
playing from the bottom of the screen. You move by entering the letter across the 
bottom, then the number down the side (as C7), then press RETURN, followed by 
the letter across the bottom, and the number down the side of the square into which 
you want to move. If you make a capture, you'll be asked JUMP AGAIN? Enter any 
letter, then press RETURN if you can jump again, or just press RETURN if you cannot 
jump again. You'll then be given an additional move. The VIC makes its multiple 
jumps automatically. 


The VIC always has first move. The number of pieces both of you have captured is 
shown above the board, the game will end if either of you manages to capture all of 
the other's pieces, or ifthe VIC judges the situation to be hopeless, and concedes the 
game. Although the VIC is not always too good at spotting threats to its pieces, it is 
most reluctant to move into danger. 


The screen will clear from time to time during a game, to stop the area under the 
board being cluttered by inputs. Although there is no mechanism within the 
program to stop you cheating, there is little to gain by doing so, unless you want to 
force the computer into a particular position to see how it will react. The VIC is an 
honourable opponent, and will not cheat. 


Kings are made automatically. Your kings are letter K’s, and the computer's kings 
are diamonds. Due to shortage of memory, there is no input validation, so be careful 
when you enter your moves. A mistake when entering a move can wreck a game. 
Lines 390 to 405 are the ones in which the VIC checks the safety of its intended 
moves, predicting captures which you will make in a following move if it makes the 
contemplated move. 


The program has been written in such a way that it is easy to change the characters 
used on the screen to represent the pieces. All you have to change is lines 750 and 
900 to use your own choice of characters for the pieces. 

1@ REM CHECKERS 


40 PRIHT"CPLEASE STAHD By" 
S68 GOSUESSE 


6A f=Ze4 

TA G8 

36 FORG=697072: IFACG)=-1THEHACGi=—2 
188 HEHT 

118 GOSUBPFAa 

138 IFAS 22=S0RA 62921 THEMGOTOSSE 

id@ IF2<2SAHDA¢ 2 3=1 THEMA YC 2 =o 
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ba 
| 
ae" 


1% 


Wo] 

IFACZ+N CY) )CGANDACE+ OREM CY SERTHENDEH CY 

IFA {2 =2AHDAC2- eo 3 BAO PAS DSATHEM Ga cyt 
IPG > BAWD2+240223 THEMGOTOSSA 


l= 


IF'Y=2THEHZ268 


. 
bet pL 


Ce ee CS 
Qty i -) 


2) Mm Dew] m 


14 Y=2: G0T016e 
2A 2Sa2+1 
238 IFE<?2THEMI Sa 


ya 
te 
mi 


TP GSETHENS46 

251 Hike eth: Ate ore tne eae) ae2=5 
are Gs =A] 

SSE IFACS +H yay. EN cleaned 4S THEM Ges 04! 
238 IF Qe BAMDE+ 2#U> AS THEHS5a 

S18 IFY=1THEMYs2: GaTOSSE 

S28 GoOToOASE 

S46 =6: =F 

SSB 2=24+ THT CRMIN 1 edad: Wally 

BEI IF CACZ9<S0RAC23=-1ORAe Poe -20RAC 2060 AMD 1 ee THENSSe 

SA '=4 

SS [FAC 2Z+%0'799°>G8THEMACa 

SQ IFACE+4 07> DSGAHDAC Z+S#e CY > - LANDA 2+ 288 CY 941 9 > -LAHDACZ+2e% 0 9-1 9>—-1 THEMES 
a 
B 


S ITFACS+4h04'> DS GAMO 1 Se THEMOR OY 
AR IFAC 2 °=2AHDAC 2-4 0's 3S =BAHDAC 2-24 CY > LANDA 2-2ee P9415 >-1 THEHOS— 3 
= IFUSEQGIRHDAC ZL =2ANDACZ —a ts S=ATHEHME=— i ty 5 
5) A eet lege 
FY'=1THEMY=2: GOTOZSa 
IFUSIBOn TREES 
446 PRIHT"I COHCEDE THE GAME": STOrP 
450 ACZ+O ssa Fo AC P= 
$7 GOSUEP4+e 
486 PRINT": TMPUTY FROM" GAS: TMPLIT" TO" : Be 
$98 I[FUS<>""THEMFRIHT oO" > Ue" 
sai FORM=1T02:2=6 
52a IFW=1THEMCS=A$ 
S448 TFM=2THEMC#=B# 
SSO 2-244 (C$="G9" 9-254 C$= "ES" 1 -SEe CCHS C9" SPH CHS A" I~ Cee "HE SLES” 
Fi 
aoe IF2¢>8THEHSSa 
aad 2a SSe (CES "TS 
Ae? 
aoe IF20>e@THEMSae . 
SSG 25-434 ¢C#="H6" 9-444 (C$="F 6" ASC OHS" D6" )-4Gk (CH= ES" SOHC CES Gd SLRS 
E4") 
S68 [F2<>8THEMHSSa 
362 2=-S2e(C#E="C4"5-F6ecc CES"HS" 3 -SPeC CES "FS" Se CCHS DS be Cee BS te og 


a 


BRR Bis 


Hh eS 
tics A 


ca 1 a 


~ BSH CC$= "BE" SPEC CHS" OT" RSC EP" ask CE= "CF ARCS" 


he 


i 
mM f 
fe 


IFZC>@THENS86 
=~64# (CHS "E2" 1-B5#( CH= "C2" )-BGe( CH=" AS" 1 ~69H CCHS "HL" PRR CES" FL" 
IFZ<?OTHENSS0 
25-7 LHC CHS "D1" 9-PORC CHS" BAS 
TFW=1 THEND=2 
IFW=2THEHE== 
HE A ie A¢= we :-BE=" W $ C=" " 
ACE =ACD  ACDSe 
IFARS<¢D-E9>7THEMAC CD46 3°29 =0 | HUSH 
GOSUBP 4a 
IPABS<D-E 927 THENIMPUT" JUMP AGRIH" 3 Le: IFUS<2" THEA 
FHL 1 2AIMDCO< 1 2THENGS 
IFHU=12THEMPRIHT "YOU WI" : STOP 
71 IFCO=12THEMPRINT"' I WIM": STOP 
74a FORM=24 7072 
PSE ACM =-SE SC ACM IRL SSL SECA CMI =29-BSH CACM SE -21 SCAM 9-1 1 -P SRC ACMI S29 ~Se CAE 
Paso 


FEE HERAT 


Ci 


ti 


VL uw cosmo 


fa 


PAA AAMRAAR AMA 


AHA H Am mh ao 
io 


Gi 
m 
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“d 


PRIHT SS" PRIHTTABSS 2 "SME" CO" BY ou" HL 
PRIHT: FRIHT > PRIHT 

FRIHTTABS 2" SIR BCOEPGH" 

Tsa-2: FORK=87T0S > PRIHTTABC 625 ¢ FORI=8TOS 
PRIMT "ma" > CHRECAS P2-J-1 Stk aos HEAT? T=T+1 
PRIHT SS" THT Se Ith 3 AS o4+T 


Mimo | Lamm 


fo 0) 00 ~J wd 


Mion tad fa Wo tom -] 


mn 


mm 


HEAT? T=T+4 
PRIHT SS" IHTC CItk 3 f2a+T 


“7 
nm 


cn) 


870 HEAT 

886 PRIHTTABC6>" @iREBCDEFGH" : PRIHT 
S85 REM PRIHT"G"o" ae" UW" 
836 FORM=24T072 


FORI=8TO3: PRIHTTABCE 2 809" CHRE CRC BE -I-1 SK 3 BRE" 


966 Dee rene) ena ea are 21S) +B# CA M9 SS2I+ CACM ISZLS+2e CACM SPS -SECACI RS 9 


916 HEH 

926 RETURN 

350 DIMACSS) XC 15=-6' KC 29=-7 

S66 FORZ=17T099:AC23=9:HEXT 

976 FORZ=17T032: READB: READC: ACB 9=SC: MEXT 


986 DATA?Z,1,71.,1,70+1. awe ey 1:64:1,63.1559.1.58,1,57.1 
938 DATASS, @.52.6.51,6,50,0,46.46:45,4.44,49.42.4 
1666 DATAS@,-1,39,-1,38,-1.37.-1.33,-1.32,-1,31,-1.38.-1 a! 


1919 CO=:HU=68 
1615 POKES6S79.25 
1@26 PRIHT"" > RETURH 
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JELLY BEAN 
SPACE SWARM 


In Adam Burbidge’s program, you are the navigator on a starship. Suddenly you 
find yourself embroiled in an asteroid storm. On y you can Save The Ship From 
Destruction. 


You are the purple checkerboard in the left hand corner of the screen. As you'll see 
when you run it, the asteroids appear at different points. By using your two controls 
(4 - left, 6 - right) you have to steer out of the way of the asteroids (which look 
somewhat like jellybeans, hence the title). The pressure increases as the game 
continues. The number of asteroids increases, and their colour changes. 


1 REM JELL'YYBEAN SPACE SWARM 
2 REM BY ADAM BURRIDGE 
2 PEM STANDARD MEMORY ONLY 
4 SC=0:HS=a 
S PRINT"<": FEM CLEAR SCREEN 
18 FORJ=1T020:PRIWT : HEMT 
1 POKE36879, 255 
40 POKET746, 102 
42 B=28466 
45 POKES8466.4 ” 
56 FORT=1T0300: HET 
SQ A=7746 
6&5 POKER, 22 
76 GET A¥: IF At="4" THEN A=Fi-1:B=B-1 
71 IFAt="6" THEN A=A+1: B=RB+1 
72 POKECA-22).32 
73 POKECA-21),32 
74 POKECA-22).32 
75 POKEA. 102 
76 POKER,4 
77 FORT=1TO100: NENT 
IFPEEKCA+223=81 THEN 2am 
SC-SC+1 
M>INTCRND¢ 134#5065+7680 
POKEM+30720, 6 
POKE™,@1 
IF SC>4@A THEN 5Aa 
IF SC>29A8 THEN GOSUR gaa 
5 IF SC>20A THEH GOSLIE 250 
180 PRINT 
11@ GOTOES 
208 POKE 26877, 220 
216 FORL=15700 STEP -1 
220 FOKE 26879,L 
238 FORM-1TO208 
240 HEYTM 
258 HEXTL- 


WO 40 40 'D 00 00 ~) -J 
YON Dw Mp cy 


or 


92 


POKE 2677.6 
POKE36878, 8 


@ PRINT"SHIP DESTROYED! !i 1" 


PRIHT"SCORE="; 5C 


296 IF SCHHS THEN PRINT"HIGK SCOPE=": SC :>HS=SC 


IF SCCHS THEN PRINT"HIGH SCORE=",HS 


FORT=1 TO78G : HEMT 

SC=8 

GOTO 5 

Y= TMT CRND® 194#5859+7626 


oA POKEY. 21 


POKE'T+20728, 2 

RETURN 
D=THTRND¢ 19 #586 9+7628 
FOKED, &1 

PQKED+30720.5 

RETUPFN 

PRIHT"WELL DOHWE, YOUVE" 


PRINT" SUCCESSFULLY HAVIGATED THROUGH" 


POKE36878:13 
POKE36876, 125 
FOR O=241 TO 135 STEP-1 


3 FORM=1TO166i 


POKESES 76.0 
HEMT 
HEMTO 


A POKEZ6ES7 6. @ 


zi] 
Mi 
| 14 
| ( 
hi 
Bl | 
(\,-§ 
| 


a — ya) 


| 
‘ 
' 


4 
4 


X 
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HANGMAN | 


This game needs two players, one to enter a word of her choice and the other player 
to attempt to guess the word. The VIC draws a dash for each letter, and then 
changes this into any letter which has been guessed correctly. 


Structure of the program 

Line 5@: Sets up arrays if needed. 

Lines 100 to 130: Accepts the secret word, a letter at a time. 

Line 135: Counts for the 1@ guesses. 

Lines 145 to 178: Select colours at random using the subroutine from 9919, prints the letter if it 
has been guessed, if not prints a dash. 

Lines 219 to 269: Accepts a guess and compares it, letter for letter with the secret word. 

Line 276: Sends control to winning message if word is guessed. 

Line 300 to 330, then from 1045: Losing message, reveals word. 

Lines 1955 to 1100: Offer new game. 

Routine from 5960: Adds some sound to brighten things up. 

Routine from 9600: Assigns the colour controls to string A$, and then when subsequently 
called (as GOSUB 9918) changes the next thing to be printed to a random colour. This 
subroutine also calls the sound subroutine, then flashes (line 9825) given the border a 
random colour. 


Suggestions for improvement 

@ Get the program to draw a hanged man, part by part, as the number of guesses is used up. 
@ Store a number of words in a DATA statement, so the VIC can choose its own words. 

@ Note that the random colour choice, the sound routine from 5@@@ and the random border 
flash are all effective aids to add to your own programs to brighten them up. 


19 REM HANGMAN 

28 PRINT"*)" : GOSUB9GG8 

38 INPUT"HOW MANY LETTERS";N 

S@ IFN>1@ THEN DIM BCN), DCN) 

188 FORA=1TON: INPUTCS 

128 BCAD=ASC(C$) :DCA=BCAD 

13@ NEXT 

135 FORJ=1T010:PRINT"2" 

140 PRINT:PRINT:PRINT 

145 FORE=1TON 

15@ GOSUB9@1@:PRINTB$; 

155 IFBCE%=DCE> THEN PRINT"-"; 

166 IFBCE)<>D¢CEXTHEN PRINT CHRE¢CBKE)); 
17@ NEXTE 

18@ PRINT:PRINT 

198 H=@ 

266 GOSUB9@10:PRINTBY; "ENTER GUESS HO. "J 
216 INPUTCY 

226 F=ASC(C$> 

238 FORG=1TON 

249 IFDCG)=F THEN D¢G)=0 

258 IFD<G)=@THEN H=H+1 

268 NEXTG 

278 IFH=NTHEN 1680 

2866 NEXTJ 

298 PRINT 

308 GOSUB9@1@:PRINT"SORRY, TIME IS UP” 
318 PRINT 

328 GOSUB901@:PRINTBS;"THE WORD WAS "; 
338 GOTO1845 
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1866 REM WIN 

1819 PRINT 

1626 GOSUB9@18:PRINTB¢; "YOU GOT IT IN"J 
1846 PRINT 

1845 FORQ=1TON: PRINTCHR$(B“Q)); > NEXT 
156 PRINT 

1655 GOSUB9@1@:PRINTB$; "SANOTHER GAME"; 
1866 INPUTCS 

107@ IFASCCC$5=ASCC"Y" THEN RUN 

1686 GOSUB9@18:PRINTB$;"S0K, THANKS FOR" 
1698 GOSUB9@1@:PRINTB$, "SPLAYING!" 

1695 FORT=1T0300 ‘NEXT 

1897 PRINT 

1166 GOTO1e86 

3668 REM SOUND 

3816 POKE36878, INT(RND(19#89+8 

9628 FORT=1TO1@QSTEP< INT<RND(1#8) +1) 
3038 POKE36876.246-T 

5646 POKE36877.T 

3866 NEXT 

9876 POKE36876,6 

3686 POKE36877.6 

3898 RETURN 

8990 END 

9808 A$="—5' 8" 

9016 BS=MID$CA$, CINTCRND(1)#794+1), 1) 
9820 GOSUBS88a 

9825 POKE36879, INTCRND< 1 )*6)+26 

9838 RETURN 


HANGMAN I 


Here’s another version of HANGMAN. In this one, the computer picks the word for 
you to guess. Change the words in the DATA statements from line 370 to add your 
own vocabulary. The number of ‘lives’ you have is related to the number of letters in 
the word to be guessed. 


1@ FEM HAHGMAH-11 

20 FORG=17TORHDIC 1 o#oo+4 

284 REALDAS 

MEAT 

=8 

H=LEH“ AS > 

FORG=1TOH 

ECGS =ASCOMIDEC AE, Gs 123 
DiGs=BCGo 

HEwT > PRIWT " ceded" 
H=THT itn 2+. 55° PRIA YOU HAVE" CHAMCES" 
FORLIS1 TOG: Y="7+1 
BOSUB4dI1A 
IFH=HTHEHSA 
PRIM "Sedat +i -—I"CHAWCES LEFT" 
IHFUTCE 
FH=AISC fio 


PI eee ee Ee RP SE DM mo 
EPO WitbwnmMe oma 
rm mom mem 


my 
= 
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A FORG=1TOH 

@ IFUCGS=FTHEMDCG3=6: I= J-1 

Go HEAT > HEART 

 GOSUE4}1 

A PRIMTOPRIHT" @8S0RRY. TIME’S UPFi me 

EM GOTOSSa 

Al REM ee Tee 

S18 PRIHTTABSS>) "SRE a GIL GMs!" 

S28 PRIWT' Stoll GOT THE WORD TM y-4 

S38 PRIHT' MIT WAS aA 

S48 GOTOS4e 

SPA DATA" TERROR". "POSTURE". "ELEFHAHT". "STATUS". "BACHELOR". "ASHER" 
S36 DATA" TEHOR". “BAMAWA'. "FIGURE". "TOLOT". "HARCOTIC". "PATHETIC" 
SE DATA"WIZARDY . "MICKED" . "WISEMED". "EVIL" 

AA DATA"PARTICLE". "ATOM". "ELECTROH" . "START". "FAMISHED". "EAGLE" 
1A HS 

15 PRIMT" eee" 

417° FURE=17TOH 

4268 [FBC EYS=D¢E2 THEMPRIWT 2" | 

438 [FEC E 22008 > THEMPR IMT "SCHR C BCE 3 H=H4+ 

448 HEAT: PRIHT 

468 PRIHT: [FHSSHTHEMHFPRIMTH "CORRECT LETTERS" 

488 PRIHT 

490 RETURH 


ANTIHANG 


This is HANGMAN in reverse. The computer tries to guess the word you have 
chosen. 


A (NS CO COC 
mmm i tah 


When you run the program, you'll be asked HOW LONG IS THE WORD YOU HAVE 
CHOSEN? Enter the number of letters in the word — if your word was APPLE you'd 
enter 5 — and then press RETURN. The next thing you'll see on the screen is five 
inverse blue dashes, one for each letter inthe word, as well as LIVES LEFT — 10. This 
is followed by | GUESS and the letter the computer has guessed. If the letter is one 
which /s in the word, say A, then you enter 1, to show it was the first letter in your 
chosen word. If the letter is not in your word, you enter @. Assuming the computer 
guesses A as the first letter. you enter 1, then press RETURN. Immediately, the five 
inverse blue dashes are reprinted, but this time the first one has changed into an A. 
The words | GUESS A are still there, to cater for double letters. As there are not two 
A’s in APPLE, you enter @ and press RETURN. 


Here’s how one game | played with the VIC progressed. | was thinking of the word 
START: 


T—5 LIVES LEFT —10 ----T 
T-—2 LIVES LEFT —‘10 -T--T 
T—@ LIVES LEFT — 10 -T--T 
E-—@ LIVES LEFT-9 —-T--T 
A-—-3 LIVES LEFT-9 —-TA-T 
A-—® LIVES LEFT -9 —-TA-T 
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O-@ LIVES LEFT-8 —-TA-T 
R-—4 LIVES LEFT-8 -TART 
R-@ LVES LEFT-8 —-TART 
S-—1 LIVES LEFT-8 START | WINIWIN1 WIN 


You'll find that, generally, the longer the word, the better the chance the VIC has of 
working it out. ANTIHANG is based on a program written by Toni Baker. 


16 RENETAOHRISHDILFCMUGYFPUBIEQE VE 

28 L=18:G=45 

SE PRIWT"CIReeteHOl LOWG IS THE WORD ‘YOU HAVE CHOSEN?" 
48 THPUTH: FRIWT!" 

S48 DIMASS6o. Condo. Geo 

116 FORS=170e6 

128 AC Ss=PEEK C41 1+ 

136 IF22H+1THEMGiS 2=9 


146 HEXT 
156 ZS=IHTCRMDC Osa 4d 
168 BE=CHRECACED 2 

178 FORIJ=27TO25 

186 ACTo=AeT+13 

136 MEST 

SHG Fee 


211A FRIWT "Ise see" | 

eel FORS=17TOH 

238 PRIWHTCHREC GES 32: 

248 HEAT? PRIWT 

236 PRIHT"SaleL Ives LEFT -"b 

2396 PRIHT' Mal GUESS "Bt 

SHB IHFUTEL 

S18 IFBL=8THEHS54 

S2@ AL=1 

S38 GOB I=ASCY EE 

S48 GOTOSHE 

35H F= 

FORZ=17TOH 

IFG* 2o=0THEHF=1 

HEAT 

IFF=S@THEMPRIHT" Sep mBieal WI! GoTosae 
IFAL=8THEHLs1.—1 

418 Al=8: IFLZATHEHLS 

426 FRIHT" SRM RDFAS OU WI! : GoTodse 


FLIP 


FLIP is an intriguing game, which provides quite a bit of mental stimulation. On a 
three by three grid are randomly solid (filled in) and empty circles. By flipping them 
(see the following for an explantion of the flip), you have to end up with a single 
empty circles. By flipping them (see the following for an explanation of the flip), you 
have to end up with a single empty circle in the middle position, and solid circles in 
the other eight positions. 


mimi mm 


Wo a oy 
i) 


hit bo to 


m 


You can only flip a solid circle. You move by entering the number of the piece you 
wish to flip. Flipping a corner piece causes those adjoining it to change to their 
opposities (that is, a solid circle opens up, an open circle solidifies). Flipping a 
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middle circle on one side changes the two either side of it, and flipping the middle 
one changes the middle piece on all four sides. The piece you flip also changes. 


The number of moves you have taken so far is displayed. At the end of the game, the 
program will pause to tell you how many moves it took to solve it, and then you'll be 
given a new starting position. 


7+ REM FLIP 

14 M0: 0=269'%=215 
28 FORC=1TO9 

30 BRIHTCRHDIC1 3+. 55 
33 ACCI=0: IFBSQ@THEMACC = 

44 HEXTC 

24 GOSUBLS&e 

68 H=e 

f@ FORC=1iTos 

SE IFACC3=*THEHH=H+1 

S@ HESTC 

146 IFHSLAHDASSo=4THEMGOTOe7a 

118 M=tH+1 

115 PRIM OVE HO. "NM ¢ PRIHT  PRIWT 

126 PRIMT"SWHICH OHE TO CHAHGE" 

125 GETAS: IFAt=""THEML25S 

126 HEVALCAG): [FHCLORH>STHEHL2S5 

L3h GOSUBSIA 

GOTOSE 

EM 

FRIHT "cI" 

PREIHT > PRIHT : PRIWT 

PRINT! 1" "2" "3" "CHRECACLIO" "CHRECACZ99" "CHRECACS o> 
PRIHT 

PRIHT RI 4" "SR" "6" "CHRECACH IO" "CHRECACS IO" "CHRECACE 22 
FRIHT 

PRINT "7" "8" "SO" "CHRECAC Poo" "CHRECACSI 9" "CHRECACS > 3 
PRINT 

RETF 

FRIHT SOLVED IH" 
FORT=17TOSeae 

HEMT 

Fh 
IFACH2=4THEHRETURH 
IFH=1THEMF <1 ose: Pee) 
IFH=2THEHF ¢13= 1: Pca 
IFH=STHEHMF «19s FO2) 
IFH=4THEMF (1 3=4 -Ftes 
IFM=STHEMF «lose: Fee: 
IFH=6THEMF else a Foe 


tu 
—_ 
a! 


SVQ Aw DBD 


=] 


hee ee 
Lik 


"NU Aime wD! 


~ 
= 
tins 


1 


Ye BW a 


4: F639=5:F (49218 
RFCBS1G: Fd =18 
ee oe a a SS oe | 
PIF CSo=1 GF tdosia 
ALPOS3SS  FCAIS6 

(Fea = (fA: Fedi= {A 
ee eee Oe 8 
S:F6a3=10: Feq3=18 
pa lee ee eB 


tr 


~{ Ut 


IFH=?THEMF {1 9=4:F C23 
IFM=8THEMF {1 2=7 Fee: 
4H2) IFH=STHEHF « 19=8:° Fee) 
418 POKESS6S7s, 15 

426 FORG=1TO4 

425 PORESES7S. 24+RHD0 1 ome 

427 PORESES7S. 1S8+RHDC 1o#108 

430 ITFACK {G3 o=sTHEHACE {G9 5=0: GOTO4Se 
44 TPACK CG) 2=QTHEHACF 2G) 2 =H 

458 HEXTG 

455 POKES6875. 0: POKESES7S. & 

468 ACHo=z 

478 RETURH 
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BATTLE 


In this board game, which is somewhat like checkers (except for the size of the 
board, and the method of capture), you are at the bottom of the screen playing up, 
and the computer is at the top playing down. 


The computer always has first move. The aim, as in checkers, is to capture your 
opponent's men, but unlike checkers you capture by landing on a piece, rather than 
by jumping over it. You move sence to the hedbinas FROM? With the number 


eRe RU 


: “lt 
"i ( st re | th a 
= SS ne Dy Wi 4 = 


i 


f 


ne 


fi}}} 
g) 


Es () Wy, y, g Yj “4 + 
4 { ers er if Hi, Nt i 
> YY Y Be ¢ \ 1 4 \ 

eyss LE . . Si NN yi : ZEN \ 
Win, Z pW \ i) aa ae e oN way 
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across the bottom of the square you wish to move from, then a comma, then the 
number along the side. You do the same for the ‘to’ square. A move, then, might be: 
FROM? 6, 2 

TO? 5, 3 

The winner is the first player to capture six of the opponent's pieces. 


BATTLE was written by Chris Callender, of Cove, Helensburgh. 


= REM BATTLE - CHRIS CALLEHDER 
14 DATA #234 
2A DATA" | wim ian iene 1 
38 DATA" 2mm vat: fe 

44 TATA" Sm 
sl TIATA" 42 
BE TATA"S 


SEP ae" 


96 DATA" Se shits " 


FR Ter se 
+S Pe" 


DATA" # 


FORASI TO 

READE 
FORB=17011°S4¢A. Bo=MIDe¢ BS, Bo 19 (HERTE:MEXTA 
IF IMT RDS 134+. 5°=8THEH145 
SEC5,50="g" See, Foe 0 
POKESSS7S. 25: PR TMT 

GOSUBL Lae 

PRIHT > PRIHWT > PRIHT 

IFCS=6THEHPRIHMT' 2 WIKI I": Stor 
IMFUT"FROM" ; A.B 

IHFPUT" TO" Gt. 
IFABS<A-C2=1AHDABS <¢ B-Do=1 THEMSSR 

A PRINT" ILLEGAL MOVE": GoToOLsA 

220 IFS#¢C+1.0+19="9" THEMHS=<HS+1 

23G S$CA+1, B+ios" "6 SeeCe1, D+ 13s 

246 GOSUBL Isa 

245 PRIHT: PRINT: PRIMT SPRINT" ":PRIMT" c 
247° IFHS=6THEMPRIMT YOU WIM!" STOR 
258 AS="6" - GOSUR oAG Oe" 

268 IFFL=1THEHM=aG 

278 At=" "“GosuUBigaa 

SHA SEck,Pya" 

302 IFS$CE+G.F+H="" THEMCS=CS41 

S1Q SEcE+G, F+Ho="g" 

3e6 GOTO1S5a 

1400 4 E=2:F=2:G=a:H=n 

ifig FL=9 

1926 LFSt(E. Foc "e"THEHI1aG 

1A46 IFS#CE+4.F +1 0=A¢THEMG=1 > H=41 

1655 [FS#¢E+1,.F-19=ASTHEMG=1:Hs--4 

1G6G IFS#{E~1.F+13=ASTHEMG=—1 :H=1 

Lara TPSt¢E~1.F-19=AtTHENGs~1 :H=-{ 

1GS6 IF G¢>GRNDH<>ATHEMPL=1 > RETURE 

116@ ESE+1: IFESIGTHEHE=2:FeF41 

1118 IFF21iTHEMRETURY 

i12a@ GoToigia 

1130 PRIHT' SS": FORAS1TO1@:PRIMT > FORB=1TO14 
1140 PRINTS" 3: 1FS¢¢A. Bo="@" THEMPRIKT "I" ; 
1145 I[FS#¢A. Bo="@"THEMPRIHT ae" : 
1158 IFS¢¢A. Bo="#"THEMPRIET a" 

1155 PRIHTS£#<q, Bo: 

116@ HEST:HEXT - 

11? PRINT PRIMT PRIAT SMe Os, po: pe meen 
118@ RETURM ane ee ee 
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CAVEMAN 


As the Caveman, you must survive in the labyrinth-like cave system for 25 
minutes, battling monsters and finding treasure, while trying to avoid quicksand, 
and blundering into walls and blocked caves. You have five arrows, and each 
monster you kill gains you extra wealth. There are also magic caves, which move 
you randomly through the system. 


This program occupies all but 70 bytes of the memory on the standard VIC so there 
is no room for elaboration. To make sure as many features as possible could be 
squeezed in, PRINT statements are terse to the point of rudeness. 


You start in cave 55. You are shown a view of the system from above at the 
beginning of the program, and from time to time while a game is underway. The key 
to the cave’s contents is: H— you (for human); $—- gold; OQ — quicksand; a diamond 
shape — a magic cave; a grey square — a blocked cave; and a full stop — an empty 
cave. 


You can move up, down, right or left one square at a time (which you do by entering 
N — north, S — south, E — east or W — west). You can also choose to shoot into an 
adjoining cave, which you do by entering an F. Your cave computer will warn you 
when things are nerby (NEARBY IS... GOLD is one typical message), but being a 
Cromagnon VIC 20BC, it tends to malfunction so you only know of the contents of 
one of the surrounding caves, rather than what is in all of them. As well, it does not 
tell you which of the surrounding caves it is talking about. 


A cave is emptied after you leave it, so you cannot revisit a cave containing gold 
over and over again to enrich yourself. If a beastie gets you, you fall into quicksand, 
or run out of air, the game ends with a printout of the system. 


When you run the program, you'll see the words CAVE 55 at the top of the screen. If 
your Cromagnon VIC 20BC has any message for you, it will appear next, followed by 
a number which is the minutes of air you have left, and then a prompt 
questionmark. The computer is waiting for your direction input (N, S, E or W) ora 
decision to fire an arrow (F). If you try to go where there is no path, the message 
BLOCKED CAVE will appear, and you'!I have to enter a new direction. If you say you 
wish to fire an arrow when your five are used up, you'll be told you’ re out of arrows, 
and asked for a new instruction. Good hunting, Caveman. 


S68 DIMAS 186): H=6: O08: L=e: GG: AR=6 
40 POKESSS7S. 15 

50 FORES1TO1(Ge: AcBisde 

668 IFEC120RE900R1G#1MT (BY 1695B0R16#1HT CB? 189=B-1THEMACEI=166 
188 HEXT 
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LHe 
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1A 
Lease 
1846 
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SALE 


282A 


FORB= 1705: RESTORE :FORD=17T05 
=IHT* RHDS 13 er etiee DERE Steen he 
REALIC: Ac 2s=C 
MEST? HEAT 
DATAIGS. 215. 77P.81. 56 


FORB=170S > READP CB? >: HEMT: DATA-11.-18.-S.-1.1.9,18,11 
E=55 

ALE s=P72 

PRIMT" COMtelealel ; : GOSUBIE4e 

B= THT CRAIC 1 oars 

IFG=8AMDE S35 THEMGOSUBSE4 6 

PRINT " TIMeHICAY EE 


IFGHOTHEMPRINT " eemee "G" GOLD" 

BOSUESHAE 

PRINT "sara!" 25-H 

TMPLITZ : =) 

IFS#="H"ANDACE-189=1860RE4="S"AHDACE+189=1660RZ4="E"ANDACE+1 = 166THEML=1 
IF2$="H"ANDACE-19=1660RU=1THEMPRINT" MBLOCKED CAVE": FORT=1 T2668 MEST: GOTOSS 


ACE 3=46: [F2¢="H"THEHESE-16 
IF2¢="S" THEHE=E+16 
IF2#="E" THENE=E+1 
IFE¢="l" THEHE=E-1 
IF2¢="F" THEHGOSUBSARE 
IFACE2=21 STHEHGOSUE1 aoe 
IFAC E2=7 7 THEHGOSUBZAae 
IFACE 2581 THENGOSUBSGaR 
IFAC E}=S8THEMGOSLIEA ae 
H=H+1: [FH=25THEMGI=9 : GOTOS8eR 
FORTSEHD¢ 144641 S58TO1PPSTEPRNDC 1241942: POKESS8PS, 7: FORMS TOT: HEMT 
POKES6876. 208-7 HEMT: POKES6S 75. @:POKESES7 6. 6 
BOT OSE 
PRINT" StaMAGIC! 1" 
FORUS1TOS86: POKES6S79. RHIC 1942446: POKESSS76, RHDC19#1 64248 > HEMT: POKESE SS, oo 


PORESES 76. 8: ACE ss46 
E=THTi RHI i #P6+129° [FACE ?=1667THEMI ase 
RETWRH 


PRIHT" SMOHSTER HERE" 
FORT=1TO1 G88 : HEMT 


M=RHDC 13: LEM. 2THEHPRIMT" SIT RUHS AMF? RETURH 


2636 PRINT" M@IT’S SEEM YOU..." 


2648 
2638 


FORT= iroteas: HET 
IFM>. SS THEMPRINT " AHD FLEES"FORT=1 70999: HEST > RETURH 


ee 


Zhe PRINT" eRHI EATS YOU!" FORT=1 70998: WEST: f=: GOTNSaRR 
SBA FORJ=17020: PRINTTARCS#I9 ; "MSHORRORS, . 
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FORUS238TO2S0STEPI@ :  POKESGS7S. RHIC 1240446: POKESESTS, LOR4Le3 
HEMT: POKES6S79.. 29° HEXT 

PRIHT" SSR RRB TICK SAD 1 

PORESES 76. & 

FORT=17TO1GG@8: HET 

G=a 

GOTOSAGE 

Re aTCRHDC velaessgag. A Nee SHH (1 * rom TONORS ENT: AEH 
k= bliin i fica 2108 


M2 


POKES 76, 8 

PRINT" SRBIGOLD WORTH $"K" 01": G=G+K : FORT=1 TOSG80 : HEMT > RETURE 
We 

Ls ACE+P C4 ieee 

IFL2“46THEHSaZe 

LEY ETHENY="41 : GOTOSER6 

IFL=46THEHRETURH 

PRIMT" SIeaHEAREY IS..." 
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IFL=1L66THEMPRIHT"HO FATH" 
IFLESeTHEMPRIMT "MAGIC" 

=P THEMPR IMT MOHMSTER" 
THEHPRIHT "QUICK SAMI" 
IFL=S8THEMPR IMT "GOLT" 
FORT=1 TOS888 > HEXT > RETURH 
AR=AR 1: TFAR=ATHEMPRIWT "HO ARROWS": RETIRE 
PRIHTAR" ARROWS" > SS=8 
IHPUT Mari" s Se 
IF SF="H" ADA E-Leo=PP THEN SsS=1 : YT=E-16 
IPSé="S" AWDACE+169=" FP THEMSS 
IF: 
IFS#="W"AWDACE-13=P P THEM! : 
IFSS=QTHEMFRIHT!HO LUCK": GoTOsi2e 
PRIHT" SHIT" 
FORT=1 70999: HET: IFRHDC 13>. STHEHGL1a 
PRIHT ER ILLET! AST os6: G=04+ THT ORD 124163 GoTORL SE 
PRIHT"WOUMDET" 


FORT=1 TOSGG8 : MEST RETURH x 
TF GSS THEMGOT OSE 5 hk ({ \ 
PRINT"HO ALR LEFT 


PRIHT' MOOSE VIVED"H" MINUTES = FOUND #°G"OF GOLD" TAY AAT itd 
ACE 3aP2 

FORJ=1T01 e081 
PRIHTCHRE CFC I 3 3 ; 

IFIGH TNT CI183=ITHEMPR INT 
MEST: [FG=STHEMEMT 

RETURH 


Appendices 


Error Messages 


BAD DATA.. .String data was received, but program expecting numeric data. 
BAD SUBSCRIPT. ..Element of an array outside of the range specified in the DIM statement. 


CAN’T CONTINUE. ..The CONT command will not work, either because the program was 
never RUN, there has been an error, or a line has been edited. 


DEVICE NOT PRESENT. . . The required I/O device was not available for an OPEN, CLOSE, 
CMD, PRINT #, INPUT #, or GET #. 


DIVISION BY ZERO. . . Division by zero impossible. 


EXTRA IGNORED...Too many items of data entered, in response to an INPUT statement. 
Only the first few items accepted. 


FORMULA TOO COMPLEX. . .String expression should be split into at least two parts. 
ILLEGAL DIRECT. ..INPUT can only be used within a program, and not in direct mode. 


ILLEGAL QUANTITY...Number used as argument of function or statement out of 
allowable range. 


LOAD...Problem with program on tape. 


NEXT WITHOUT FOR.. .Either incorrectly nesting loops, or having a variable name in a 
NEXT statement that doesn’t correspond with one in a FOR statement. 


OUT OF DATA...A READ statement executed but no data left us,READ in DATA Statement. 


OUT OF MEMORY...No more RAM available. May also occur when too many FOR loops 
nested, or too many GOSUBs in effect. 


OVERFLOW... .The result of a computation is larger than 1.70141884E + 38. 

REDIM’D ARRAY...An array may only be DIMensioned once. 

REDO FROM START...Character data was typed in during an INPUT statement when 
numeric data was expected. Just re-type the entry so that it is correct, and the program will 


continue by itself. 


RETURN WITHOUT GOSUB...RETURN statement encountered, when no GOSUB 
command issued. 


STRING TOO LONG. ..A string can contain up to 255 characters. 
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SYNTAX...A statement is unrecognizable by the VIC. A missing or extra parenthesis, 
misspelled keywords, etc. 


TYPE MISMATCH. ..This error occurs when a number is used in place of a string, or vice- 


versa. 


UNDEF’D FUNCTION...A user defined function was referenced, but it has never been 


defined using the DEF FN statement. 


UNDEF’D STATEMENT...An attempt was made to GOTO or GOSUB or RUN a line 


number that doesn’t exist. 


RED 
10 


SCREEN BLK WHT 
BLACK 8 9 
WHITE 24 25 
RED 40 41 
CYAN 56 57 
PURPLE 72 73 
GREEN 88 89 
BLUE 104 = 105 
YELLOW 120 = 121 
ORANGE 136 = 137 
LT.ORANGE 152 ~= 153 
PINK 168 169 
LT. CYAN 184 185 
LT. PURPLE 200 201 
LT. GREEN 216 217 
_LT. BLUE 292 933 
LT. YELLOW 248 #249 
SPEAKER COMMANDS: 
POKE 36878, X 
POKE 36874, X 
POKE 36875, X 
POKE 36876, X 
POKE 36877, X 


BORDER 
CYAN PUR GRN- BLU YEL 
11 12 13 14 15 __ 
27 28 29 30 31 
43 44 45 46 47 
59 60 61 62 63 
75 76 ‘a 78 79 
91 92 93 94 95 
107 108 109 110 111 
123 124 125 126 127 
139 140 141 142 143 
155156 = 157, 158 159 | 
171 Tfe2 173 174 175 
187 188 189 190 191 
203. 204205 206 =~ 207 
219 220 221 222 223 
235 236 237 238 239 
251 202 253 254 255 
WHERE X CAN BE: FUNCTION: 
0 to 15 sets volume 
128 to 255 plays tone 
128 to 255 plays tone 
128 to 255 plays tone 
128 to 255 plays “noise” 
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COLOR CODES MEMORY MAP 


N 
N 


a 

SR Lee eee 
BF BBE BOERS SRSSORSE SES 
HHSHSHSSSSSSSHS HHS SSSSSSISS 


JOYO 
JOY1 


F-sereenee 


GAME I/O 


JOY2 
JOY3 


POT ¥ 


LIGHT PEN 


+5V 
GND 


POT X 
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SCREEN CHARACTER CODES 


a See ee Ree eae eee ee 
Jot te cates 
el Ee ee 
Theses keh sae eee 
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Fifty outstandi ng programs for 
your VIC-20! , 


them in this great book. 
ARCADE GAMES-like Zombie Island and Space Fighter 
ADVENTURE GAMES-like Caveman and Space Trek _ 
BOARD GAMES-—like Checkers, Gomoku and Othello/Reversi 
BRAIN STRETCHERS-like Colourmind, Flip and Mento 
GAMBLING GAMES-like Roulette and Craps 

AND MUCH MORE!! 


Write poetry with your VIC, work out your biorhythms, create 
messages in double-sized characters, drive your racing car on the Vic 
- Speedway. . . and more. Don’t plan on going out too much in the next 
few months. You won't be able to tear yourself away from your VIC-20 
All programs fit the standard memory VIC-20. Several are supplied 
with special versions so you can use joysticks if you have them. 
Non-joystick versions are also included. All games have been 
extensively ‘play-tested’... and have passed with flying colours. 


Another great book from INTERFACE 


